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ABSTRACT 


A  SATCOM  Signal  Analyzer  (SSA)  is  being  developed  by  the 
Satellite  Communications  Laboratory  of  the  Naval  Postgradu¬ 
ate  School.  The  purpose  of  this  system  is  to  provide  high¬ 
speed  multi-channel  digital  spectrum  analysis  and  character¬ 
ization  of  the  outputs  of  UHF  communication  satellite  tran¬ 
sponders  while  in  orbit  and  operating.  A  Digital  Computer 
Subsystem  provides  the  control  for  most  of  the  equipment  in 
the  system. 

The  thesis  documents  a  portion  of  the  software  develop¬ 
ment  for  this  subsystem.  This  software  performs  all  opera¬ 
tor  interaction  using  a  Touch  Input  System  and  a  Graphics 
Display.  It  is  controlled  to  a  large  extent  by  menu  data 
stored  in  a  disc  file,  which  can  easily  be  extended  or  modi¬ 
fied. 


Non-trivial  file  management  and  concurrent  processing  of 
several  functions  are  major  characteristics  of  this 
software . 
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I .  INTRODUCTION 


A.  BACKGROUND 

This  project  is  part  of  the  SATCOM  Signal  Analyzer  (SSA) 
being  developed  by  the  Satellite  Communications  Laboratory 
of  the  Naval  Postgraduate  School.  It  is  a  prototype  that 
will  be  delivered  to  HAVCOMSTA  Stockton  for  operational  and 
reliability  evaluation. 

The  purpose  of  the  SSA  is  to  provide  the  user  a  means  of 
doing  spectrum  monitoring  continuously  and  to  permit  a 
method  of  making  changes  in  the  spectrum  processing  with 
ease.  The  technical  characteristics  of  this  system  are  (1) 
a  minicomputer  for  control,  (2)  array  processors  for 
analysis,  (3)  multiple  receiver  channels,  (4)  real-time 
displays,  and  (5)  hardcopy  output.  Fig-  1.1  gives  a  simpli¬ 
fied  diagram  of  this  system. 

A  Digital  Computer  Subsystem  provides  the  control  for 
most  of  the  equipment.  It  is  constructed  around  a  DEC 
PDP-11/34  minicomputer. 
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Signal  Selection  Unit 


B.  NATURE  OF  THE  PROBLEM 

Real-time  monitoring,  processing  of  operator  I/O,  and 
control  of  equipment  has  to  be  done  by  the  software  of  the 
PDP-11/34  minicomputer.  Beside  processing  of  time-critical 
events  the  operator  should  be  given  the  possibility  of  ini¬ 
tiating  several  functions  which  can  be  distinguished  by 
priority  and  volume.  While  any  number  of  functions  are  be¬ 
ing  performed  it  has  to  be  possible  to  always  initialize 
other  functions  that  are  more  important  at  a  given  time  by 
Interrupting  current  ones. 

C.  SCOPE  OF  THIS  REPORT 

This  report  documents  part  of  the  software  development 
for  the  SS A  Digital  Computer  Subsystem.  The  documentation 
will  give  a  general  view  of  the  SSA  Digital  Computer  Subsys¬ 
tem  and  its  software.  It  will  cover  in  detail  the  Back¬ 
ground  (BG)  Monitor  which  perforns  operator  interaction  and 
certain  hardware  control  functions.  Also  the  Support 
Software  which  was  developed  for  the  BG  Monitor  will  be 
presented.  Appendix  A  lists  the  present  software  and  docu¬ 
ment  a  t ion . 
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II .  SSA  DIGITAL  COMPUTER  SUBSYSTEM 

A.  INTRODUCTION 

The  operation  of  the  SSA  is  controlled  by  the  SSA  Digi¬ 
tal  Computer  Subsystem.  This  subsystem  processes  various 
Inputs  from  array  processors,  frequency  receivers,  AM/FM  re¬ 
ceivers,  and  operator  control  devices.  It  controls  syn¬ 
thesizers,  receivers,  a  hardcopy  unit,  and  monitoring  dev¬ 
ices.  Fig.  2.1  illustrates  the  SSA  Digital  Computer  Subsys¬ 
tem. 

B.  SOFTWARE  REQUIREMENTS 

The  Digital  Computer  Subsystem  performs  different  Winds 
of  functions.  Processing  of  time-critical  functions  has  the 
highest  priority  in  this  system.  Operator  interaction  is 
processed  at  the  next  priority  level.  It  includes  functions 
like  change  of  system  parameters,  requests  for  certain 
displays,  and  hardcopy.  If  none  of  the  above  processing  has 
to  be  done,  lower  priority  functions  will  be  executed. 
These  "Background  Tasks"  include  hardware  operation  tests, 
report  generation,  post  analysis,  etc. 
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Figure  2.1 

SSA  Digital  Computer  Subsystem 


from  Spectrum  Receivers 
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III .  SSA  MONITOR  SOFTWARE 


A.  INTRODUCTION 

The  SSA  Monitor  software  falls  into  two  categories.  The 
System  Software  will  be  a  resident  part  of  the  SSA.  The 
Support  Software  is  used  to  create  a  data  file  which  pro¬ 
vides  the  System  Software  with  necessary  information  to 
display  Images  on  the  HP  Terminal  and  process  operator  in¬ 
puts.  The  System  Software  development  has  been  accomplished 
in  two  steps.  Most  of  the  program  editing,  testing,  and  de¬ 
bugging  was  done  using  the  UNIX  operating  system.  The 
second  step  was  to  transfer  the  system  software  to  RT-11  and 
perform  final  testing  and  debugging.  The  Support  Software 
was  entirely  developed  under  UNIX. 

The  programming  language  RATFOR  was  used  for  software 
development  . 

This  chapter  gives  an  overview  of  the  different  software 
components.  More  detailed  information  about  the  BC  Monitor 
software  is  presented  in  the  following  chapters. 

B.  OPERATING  SYSTEMS 

There  were  several  the  reasons  for  using  two  different 
operating  systems  in  the  development  of  the  system  software. 
RT-11,  which  was  chosen  for  the  SSA  Digital  Computer  Subsys¬ 
tem,  had  some  disadvantages  compared  to  UNIX.  The  editing 
functions  and  the  file  management  of  UNIX  were  superior  to 
RT-11.  Also  RT-11  allowed  no  time-sharing.  In  addition  the 
UNIX  RATFOR  preprocessor  could  be  used  to  create  FORTRAN 
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programs.  This  allowed  programming  in  a  more  structured 
way.  The  RATFOR  programs  were  easier  to  write,  read,  test, 
and  debug. 

RT-11  in  its  Foreground/Background  version  is  a  single 
user,  two  job  system  restricted  to  28K  words  of  memory.  In 
this  foreground/background  environment,  two  independent  pro¬ 
grams  can  reside  in  memory.  The  foreground  program  is  given 
priority  and  executes  until  it  relinquishes  control  to  the 
background  program;  the  background  program  executes  until 
control  is  again  required  by  the  foreground  job. 

RT-11  provides  the  user  with  several  programmed  re¬ 
quests.  The  feature  of  invoking  user-written  completion 
routines  was  used  to  a  large  extent  in  the  BG  Monitor.  A 
completion  routine  has  to  be  scheduled  using  a  programmed 
request.  It  then  is  entered  in  a  queue  and  will  be  called 
by  RT-11  when  the  specified  event  has  happened.  Such  an 
event  may  be  a  certain  time  lapse  or  the  completion  of  some 
I/O.  Thus  RT-11  provided  five  different  levels  of  program 
execution: 

-  interrupt  routine  execution 

-  foreground  completion  routine  execution 

-  foreground  program  execution 

-  background  completion  routine  execution 

-  background  program  execution 

C.  RATFOR  LANGUAGE 

The  programming  language  FORTRAN  was  chosen  to  be  imple¬ 
mented  in  the  SSA  Digital  Computer  Subsystem  running  under 


RT-11.  Aa  FORTRAN  is  an  unpleasant  language  to  some  extent, 
the  RATFOR  preprocessor  of  the  UNIX  system  was  used  to  con¬ 
ceal  the  main  deficiencies  of  FORTRAN.  Thus  decent  control 
flow  statements,  free  form  input,  and  some  other  features 
were  available.  RATFOR  programs  were  easier  to  write,  to 
read,  to  debug,  and  to  maintain. 

D.  SYSTEM  SOFTWARE 

1 .  Foreground  Monitor 

This  program  mainly  is  interrupt  driven  to  control 
certain  time  critical  processes,  like  recording  data  on  disc 
and  processing  data  from  array  processors.  The  Foreground 
(FC)  Monitor  is  a  resident  part  of  the  System  Software.  Its 
functions  are  controlled  by  parameters  set  by  BC  Monitor. 

2 .  Background  Monitor 

The  main  functions  of  this  program  are  processing  of 
operator  interaction  and  low  priority  BG  Tasks.  It  executes 
as  a  background  job.  Part  of  the  BC  Monitor  is  resident, 
whereas  BG  Tasks  are  stored  on  an  image  file  to  be  swapped 
in  by  RT-li  when  their  functions  are  needed.  The  following 
chapters  will  further  document  the  BG  Monitor. 

3 .  Foreground/Background  Communication 

FG  Monitor  and  BG  Monitor  communicate  with  each  oth¬ 
er  using  the  communication  services  provided  by  RT-11.  They 
allow  sending  data  messages  in  either  direction.  The  data 
that  has  to  be  shared  by  both  Monitors  is  the  Parameter 
Block  (PB)  and  the  Status  Block  (SB).  The  PB  contains  all 
parameters  to  control  the  functions  of  the  FG  Monitor.  It 
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is  updated  by  the  BG  Monitor  and  then  as  a  whole  sent  to  the 
FG  Monitor.  The  SB  provides  all  information  about  the  sys¬ 
tem  status.  It  is  updated  by  the  FG  Monitor  and  on  request 
transferred  to  the  BG  Monitor. 

E.  SUPPORT  SOFTWARE 
1 .  Introduction 

The  functions  of  the  BG  Monitor  are  to  a  large  ex¬ 
tent  based  on  data  stored  on  a  menu  file.  These  menus  con¬ 
tain  all  information  necessary  to  display  a  requested  image 
at  the  operator  control  console  and  to  process  related  in¬ 
puts  from  the  operator.  This  menu  file  is  created,  updated 
and  checked  by  the  Support  Software  which  runs  off-line 
under  UNIX. 

2 •  Menu  Editor 

This  program  updates  the  menu  file  by  processing  an 
input  file  that  contains  necessary  information  in  standard 
formats.  Based  on  general  information  about  a  menu  it  gen¬ 
erates  a  set  of  display  commands  to  create  an  image.  Also, 
all  necessary  information  to  process  inputs  froo  either  the 
keyboard  or  the  Touch  Input  System  is  prepared  and  stored  in 
the  menu  file. 

3 .  Menu  Checker 

This  program  allows  checking  of  all  information  that 
is  stored  on  the  Menu  File.  It  extracts  all  requested  in¬ 
formation  and  presents  it  in  a  readable  format.  Thus  any 
modification  of  the  menu  file  can  be  verified. 
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BACKGROUND  MONITOR 


A.  INTRODUCTION 

This  chapter  will  present  the  Background  Monitor,  which 
executes  in  the  background  environment  of  RT-1L.  The 
hardware  used  by  the  Background  Monitor  will  be  addressed 
first.  Then  the  general  software  structure  and  detailed 
software  description  will  follow. 

Special  terminology  used  to  document  the  Background  Mon¬ 
itor  will  be  introduced  when  appearing  the  first  time  in  the 
text . 

B.  HARDWARE  ENVIRONMENT 

1 .  Introduction 

The  hardware  used  for  the  Background  Monitor  was 
constructed  around  the  DEC  PDP-ll/34  minicomputer.  Most  of 
the  equipment  was  standard  peripheral  devices.  A  dual  disc 
drive  was  used  which  provided  an  on-line  storage  capacity  of 
80  megabits.  A  daisy  wheel  printer  terminal  was  used  to 
provide  hardcopy  output  and  its  keyboard  served  as  a  backup 
for  the  Touch  Input  System.  Off-line  storage  for  transfer¬ 
ring  extracted  output  data  and  software  was  provided  by  a 
magnetic  tape  unit.  A  hardcopy  unit  was  used  to  output  ex¬ 
act  copies  of  graphics  displays.  Finally  the  HP  Terminal 
and  the  Touch  Input  System  have  to  be  addressed.  Their  main 
features  are  described  in  the  following  paragraphs. 

2 .  Hewlett-Packard  2649A  Terminal 

This  terminal  has  a  5  inch  by  10  inch  rectangular 
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display  providing  24  lines  of  up  to  80  characters.  Some  of 
the  terminal's  capabilities  are  screen  up  and  down  rolling, 
insertion  and  deletion  of  characters  and  lines,  cursor  sens¬ 
ing  and  addressability,  tabulation,  margin  setting,  line 
drawing,  and  different  character  sets. 

The  image  is  self-refreshing  and  portions  of  the  im¬ 
age  can  be  displayed  in  different  modes,  like  blinking,  re¬ 
verse,  halfbright,  or  a  combination  thereof.  All  operations 
are  controlled  by  the  terminal's  microprocessor. 


The  system  provides  a  means  for  the  operator  to  in¬ 
teract  with  the  BG  Monitor.  The  Touch  Input  System  is  im¬ 
plemented  by  utilizing  a  scanning  infrared  beam  technology. 
A  panel  is  attached  to  the  Hewlett-Packard  (HP)  2649a  Termi¬ 
nal  in  such  a  way  that  the  screen  is  surrounded  by  LED  em¬ 
itters  on  the  bottom  and  left  side  and  phototransistor 
detectors  on  the  right  side  and  top.  Thus  they  form  a  grid 
of  infrared  light  beams  across  the  display  area.  To  ac¬ 
tivate  the  input  system,  the  operator  touches  the  CRT  screen 
and  then  the  X,Y  coordinates  of  the  touch  point  are 
transmitted  to  the  host  computer. 

The  Touch  Input  System  provides  some  benefits  in 
contrast  to  a  keyboard.  (1)  The  operator  does  not  have  to 
alternate  between  looking  at  the  display  for  instructions 
and  the  keyboard  to  respond  to  the  system.  (2)  The  touch 
targets  can  be  located  at  different  positions;  thus  position 
becomes  a  software  design  parameter.  (3)  Only  the  valid  in- 


put  options  at  a  particular  situation  need  to  be  displayed, 
thus  eliminating  confusion  and  input  errors.  (4)  The  legend 
of  each  touch  target  is  determined  by  the  data  displayed  on 
the  screen.  It  is  easy  to  change  and  there  is  a  large 
variety  of  possible  legends. 

C.  SOFTWARE  STRUCTURE 
1 .  I n  t  rod  uc  t ion 

There  existed  two  constraints  for  the  development  of 
the  BG  Monitor.  (1)  There  was  a  limit  in  available  memory 
in  the  minicomputer  and  (2)  the  execution  time  had  to  be 
fast  enough  to  react  to  operator  requests  in  quasi  real 
time . 

For  these  reasons  there  was  no  display  image  genera¬ 
tion  done  by  the  BG  Monitor.  Rather  the  set  of  display  com¬ 
mands  for  each  image  (menu)  were  stored  on  disc  in  the  Menu 
File.  Additionally,  all  BC  Tasks,  which  perform  mutually 
independent  functions,  were  linked  as  memory  overlays  on  a 
RT-11  memory  image  file.  They  were  swapped  in  by  RT-11  when 
they  were  to  be  executed.  Thus  the  structure  of  the  BG  Mon¬ 
itor  shows  a  computer  resident  program  part  (BG  Controller) 
and  non-resident  program  parts  (BG  Tasks). 

The  RT-ll-provided  swapping  of  BG  Tasks  allows 
memory  independent  growth  of  the  BC  Monitor.  Only  the  sire 
of  a  BG  Task  is  limited,  not  their  number. 

Besides  this  ex t end ab i 1 i t y ,  ease  of  maintainability 
was  supported.  As  far  as  possible,  program  and  data  were 
separated.  Sharing  of  data  by  the  program's  nodules  was 
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kept  minimal. 

2 .  Background  Controller 

This  resident  part  of  the  BG  Monitor  was  designed  to 
be  highly  independent  of  any  BG  Task  or  data  on  the  menu 
file.  Its  components  are  the  Executive  and  several 
Managers.  The  BG  Controller  processes  requests  by  the 
operator  or  any  of  the  BG  Tasks. 

Two  different  levels  of  program  execution  are  imple¬ 
mented.  Most  of  the  BG  Controller's  modules  run  on  a  com¬ 
pletion  routine  level  (scheduled  by  the  program,  called  by 
RT-11).  The  remaining  parts  execute  as  BG  mainline  pro¬ 
grams  . 

3 .  Background  Tasks 

A  BG  Task  performs  a  group  of  related  functions. 
The  tasks  are  independent  of  each  other.  Only  one  BG  Task 
is  executed  at  a  time.  Using  the  overlay  feature  of  RT-11, 
these  BG  Tasks  all  reside  in  the  same  memory  area. 
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V. 


BACKGROUND  CONTROLLER 


A.  INTRODUCTION 

The  following  paragraphs  give  a  detailed  documentation 
of  the  resident  part  of  the  BG  Monitor.  Additional  informa¬ 
tion  is  embedded  in  the  program  listings. 

The  BG  Controller  has  the  following  components: 

-  Executive 

-  Control  I/O  Manager 

-  Input  Manager 

-  Control  Command  Manager 

-  Menu  Manager 

-  Parameter  Block  Manager 

-  Log  Manager 

-  Message  Manager 

The  Executive  consists  of  the  main  program  and  some  Com¬ 
mon  Routines  called  by  other  BC  Managers.  Any  request  for 
operator  input  by  the  Executive  or  a  BC  Task  is  processed  by 
the  Control  I/O  Manager.  Operator  inputs  from  either  key¬ 
board  or  Touch  Input  System  are  processed  by  the  Input 
Manager.  The  Control  Command  Manager  interpretes  inputs  for 
the  BG  Controller.  The  Menu  Manager  updates  the  display  im¬ 
age  and  provides  the  BG  Controller  with  all  information 
about  possible  inputs.  Updating  of  the  Parameter  Block  for 
the  FG  Monitor  is  done  by  the  Parameter  Block  Manager.  If 
requested  the  Log  Manager  logs  all  operator  inputs.  Finally 
the  Message  Manager  displays  and  erases  all  warning  messages 
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and  input  related  messages. 

Most  of  the  BG  Controller  Managers  execute  on  completion 
routine  level.  The  Input  Manager  re-schedules  itself 
periodically  to  process  any  operator  input.  Thus  this 
Manager  and  all  other  Managers  called  from  it  (Control  Com¬ 
mand  Manager,  Parameter  Block  Manager,  Log  Manager)  execute 
on  completion  routine  level. 

The  Menu  Manager  has  to  perform  certain  functions  after 
some  time  lapse  (i.e.  erasing  of  a  displayed  aenu  some  tine 
after  an  input  occurred).  On  the  other  hand  the  Menu 
Manager  may  be  invoked  based  on  a  BG  Task  request  or  based 
on  an  operator  input.  Scheduling  the  call  takes  advantage 
of  the  RT-ll-provided  queueing  function  and  thus  avoids  any 
conflict . 

Similar  reasoning  applies  to  the  Message  Manager  being  a 
completion  routine.  It  may  be  invoked  by  all  other  BG  Moni¬ 
tor  programs,  which  either  run  on  completion  routine  level 
or  as  BG  mainline  programs.  Fig.  5.1  shows  the  structure  of 
the  BG  Controller. 
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Figure  5.1 

Structure  of  the  BG  Controller 


Completion  Routine 

Called  as  Mainline  Program 

Called  as  Completion  Routine 


The  BG  Controller  provides  the  operator  with  an  in¬ 
teresting  feature.  It  is  possible  to  interrupt  any  active 
function  of  this  program  by  selection  of  another  function. 
This  may  create  a  chain  of  unfinished  functions,  and  when 
the  last  one  is  finished  the  former  one  automatically  will 
be  invoked  again. 

Example : 

The  operator  has  started  a  BG  Task  that  performs  certain 
hardware  tests.  While  this  is  being  done  he  may  invoke 
another  function  to  have  some  documentation  displayed. 
While  doing  this,  the  operator  wants  the  system  status  and 
he  starts  another  function  to  display  the  status.  Even  now 
hi-  may  Invoke  again  an  already  interrupted  function. 

When  the  operator  disables  an  active  function,  the  most 
recent  interrupted  function  will  continue. 

The  following  text  uses  certain  fixed  terms,  whose  mean¬ 
ings  are  given  below: 

-  button:  displayed  button  on  the  screen 

-  permanent  button:  button  always  being  displayed  on 

the  screen  at  a  fixed  location 

-menu:  display  image  with  all  possible 

input  information 

-  input  option:  information  about  a  possible  input 

-  menu-id:  identification  of  a  certain  nenu; 

it  is  the  number  of  a  menu's  first 
data  record  in  the  menu  file 

-  task  menu:  menu  which  is  initiated  by  any  BG 
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Task 


-  controller  menu:  menu  which  Is  initiated  by  the 

resident  3C  Controller 


B.  COMMON  DATA 

This  paragraph  will  document  important  common  data  which 
are  used  by  more  than  one  BG  Manager. 

1 .  Menu  Table 

The  one-dimensional  array  'raentbl'  is  used  to 
reserve  memory  locations  to  store  display  image  and  input 
options  of  a  menu.  The  lower  part  of  this  array  contains 
the  input  options  of  the  permanent  buttons.  This  informa¬ 
tion  stays  there  all  the  time.  The  upper  half  of  the  array 
is  used  to  temporarily  store  menu  records  with  display  im¬ 
ages.  After  the  display  image  has  been  transferred  to  the 
HP  terminal,  this  array  will  store  the  remaining  input  op¬ 
tions  of  a  specific  menu. 

2 .  Menu  Stack 

The  BG  Controller  allows  certain  menus  to 
'overwrite'  other  menus  being  displayed.  In  order  to  get 
back  to  previously  displayed  menus,  their  menu-ids  are 
stacked  in  'menstk'.  This  menu  stack  can  store  up  to  20 
menu-ids.  Should  an  overflow  occur,  the  whole  stack  will  be 
saved  in  the  menu  stack  file.  In  case  there  is  a  stack  un¬ 
derflow  and  a  menu  stack  is  saved  in  the  file,  it  will  be 
retrieved  from  the  file.  Thus  the  last  initiated  menu  is 
displayed  first  (last  in,  first  out). 
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3.  Message  Stack 


The  array  'msgstk'  Is  used  as  a  stack  for  saved 
warning  messages.  It  consists  of  an  upper  and  a  lower  half. 
In  case  of  a  stack  overflow,  the  lower  half  is  saved  in  the 
message  stack  file  to  provide  empty  entries  for  any  more 
warning  messages.  Then  new  messages  always  will  be  entered 
into  the  lower  half  and  saved  in  the  file  if  necessary. 

Retrieval  of  warning  messages  fron  the  stack  is  done 
from  the  upper  half.  If  it  is  empty,  the  oldest  saved  stack 
in  the  menu  file  will  be  stored  in  the  upper  half  of  the 
stack . 

This  method  assures  that  the  oldest  messages  will 
always  be  displayed  next  (first  in,  first  out).  To  save 
memory,  the  messages  are  stored  in  variable  length  format. 

C.  EXECUTIVE 

The  Executive  of  the  BC  Controller  consists  of  the  main 
program  and  the  Common  Routines.  The  Common  Routines  are 
used  by  more  than  one  BG  Manager.  The  Executive  is  called 
by  RT-11  when  the  BC  Controller  is  started  and  executes  as  a 
BG  mainline  program.  The  Executive  does  not  return  control 
to  RT-11;  rather,  it  stays  in  an  infinite  loop.  The  overall 
algorithm  is  given  below: 

Preset  all  Common  Data 
Open  all  files 
Initialize  HP  Terminal 

Schedule  Menu  Manager  to  display  initial  start  menu 
Do  forever 
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Get  next  BC  Task  identifier  fron  Control  I/O  Manager 
Call  BG  Task 
Close  all  files 

Thus  the  Executive  receives  the  request  for  the  next  BG  Task 
from  the  Control  I/O  Manager  and  then  transfers  control  to 
the  selected  BG  Task.  The  following  paragraphs  discuss  the 
Common  Routines. 

1 .  Common  Routine  'endfbk*  i 

Feedback  to  any  operator's  input  is  done  in  the  fol¬ 
lowing  way.  There  is  always  an  acoustic  feedback.  Per¬ 
manent  buttons  on  the  screen  are  displayed  in  a  reverse  mode 
if  the  related  function  is  active.  Other  buttons  are 
displayed  in  reverse  mode  after  they  have  been  selected  by 
the  operator.  The  permanent  buttons  for  hardcopy  are 
displayed  in  a  reverse  mode  for  about  one  second.  If  these 
functions  are  activated,  the  Input  Manager  reverses  the  but¬ 
ton  display  and  schedules  this  Common  Routine  to  be  executed 
one  second  later.  It  then  will  display  the  button  in  the 
normal  mode  again. 

2 .  Common  Routine  'enhanc' 

This  routine  performs  an  enhancement  of  a  displayed 

button  on  the  screen.  It  retrieves  the  necessary  button 
coordinates  fron  the  input  options  and  sends  a  command 
string  to  the  HP  terminal  to  perform  the  requested  enhanc- 
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3 .  Common  Routine  ^errmsg* 

This  routine  was  implemented  for  two  reasons.  (1) 
The  Message  Manager  which  is  responsible  for  display  of  any 
operator  input  related  messages  or  warning  messages  is  a 
completion  routine  and  may  not  be  called  by  programs  execut¬ 
ing  as  a  BG  mainline  program  (e.g.  BC  Task).  Thus  the  mes¬ 
sages  have  to  be  stored  temporarily  until  the  Message 
Manager  is  called.  (2)  There  is  only  one  routine  processing 
all  requests  to  display  a  message. 

There  is  a  buffer  for  only  one  input-related  mes¬ 
sage;  the  Message  Manager  will  be  invoked  to  display  the 
message  before  the  next  operator  input  is  possible.  Warning 
messages  may  be  created  in  a  larger  number  until  the  next 
call  of  the  Message  Manager.  Thus  the  variable  length  mes¬ 
sages  are  stored  in  a  buffer  large  enough  to  save  280  char¬ 
acters  of  text . 

4 .  Common  Routine  'asclnt' 

All  the  information  on  the  Menu  File  is  coded  in 
ASCII.  In  order  to  store  a  three  digit  integer  number  in 
two  bytes  (one  word),  such  a  number  is  converted  using  the 
following  transformation: 

Upper  Byte  ■  integer/30  +  40 

Lower  Byte  ■  integer  modulo  30  +  40. 

This  ensures  that  both  bytes  will  contain  valid  ASCII  char¬ 
acters.  This  routine  will  convert  such  a  coded  number  into 
an  integer. 
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D.  CONTROL  I/O  MANAGER 

This  is  a  BG  mainline  program.  It  is  called  by  either 
the  Executive  or  any  BG  Task  to  process  a  request  for  input 
from  the  operator.  These  calls  are  mutually  exclusive;  ei¬ 
ther  the  Executive  is  executing  or  it  has  transferred  pro¬ 
gram  control  to  a  BG  Task.  The  Control  I/O  Manager  returns 
only  when  a  valid  operator  input  has  been  made.  Thus  it 
remains  looping  until  the  Input  Manager  provides  a  valid  in¬ 
put.  If  a  BC  Task  requests  that  a  new  menu  has  to  be 
displayed,  the  Control  I/O  Manager  will  schedule  the  immedi¬ 
ate  call  of  the  Menu  Manager. 

E.  INPUT  MANAGER 

This  program  executes  on  completion  routine  level.  Thus 
it  will  not  be  interrupted  by  any  BC  Monitor  program.  It  is 
Initially  called  by  the  Executive  and  then  it  re-schedules 
its  call  every  0.1  seconds  by  using  an  RT-11  programmed  re¬ 
quest.  It  exanines  the  comman  data  'flag'  to  check  whether 
any  operator  input  has  ocurred. 

Upon  an  input  from  the  operator  the  Log  Manager  will  be 
called  to  log  the  command  if  requested  and  feedback  will  be 
provided.  If  the  chosen  input  option  requests  a  new  menu  to 
be  displayed  the  Menu  Manager  will  be  scheduled  to  display 
It.  Otherwise  the  currently  displayed  menu  will  be  erased 
one  second  later.  In  case  of  an  input  from  a  permanent  but¬ 
ton  the  Control  Command  Manager  is  called.  Note  that  all 
programs  called  by  the  Input  Manager  also  execute  on  comple¬ 
tion  routine  level. 


32 


F.  CONTROL  COMMAND  MANAGER 

This  program  processes  all  inputs  from  permanent  buttons 
or  any  controller  menu  buttons.  The  permanent  buttons  are: 

-  PRINT  CRT1:  Hake  a  hardcopy  of  the  graphics 

display  on  CRT  1 

-  PRINT  CRT2:  Make  a  hardcopy  of  the  graphics 

display  on  CRT  2 

-  STATUS:  Display  the  system  status 

-  SELECT:  Select  a  new  function 

-  CONTROL:  Change  SSA  control  parameters 

-  HELP:  Provide  help  to  the  operator 

with  respect  to  further  actions 

-  ACKNOWLEDGE :  Acknowledgement  of  a  displayed  warning 

rnesage;  erase  it 

The  permanent  buttons  Status,  Select,  Control,  and  Help 
function  in  an  on/off  mode.  When  they  are  chosen  the  first 
time,  the  function  is  initiated,  the  menu  will  be  displayed, 
and  the  permanent  button  will  become  enhanced.  When  an  ac¬ 
tive  function  (permanent  button  is  enhanced)  is  chosen,  the 
function  will  be  deactivated,  the  button  will  be  displayed 
normally,  and  any  waiting  menu  or  the  initial  start  menu 
will  be  displayed. 

If  a  new  BG  Task  is  to  be  started,  any  old  Task  menu 
will  be  erased  and  the  identifier  for  the  new  BG  Task  is 
saved  to  be  returned  to  the  Executive. 

Any  input  request  to  change  the  current  PB  will  be  pro¬ 
cessed  by  the  Parameter  Block  Manager. 
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C.  MENU  MANAGER 

This  program  is  Che  nose  important  part  of  the  BG  Con¬ 
troller.  It  executes  on  completion  routine  level  and  is 
responsible  for  updating  the  display  on  the  HP  Terminal  and 
updating  the  valid  input  options. 

1 .  Menu  Display 

This  paragraph  gives  a  description  of  the  display 
layout  used  to  display  menu  information.  There  are  three 
different  areas  on  the  screen.  (1)  The  permanent  buttons 
are  displayed  as  a  column  at  the  left  side  of  the  screen. 
They  will  never  be  changed  during  program  execution.  (2) 
The  bottom  lines  of  the  screen  are  reserved  to  display 
operator  input  related  messages  and  warning  messages.  (3) 
The  remaining  field  is  used  to  display  any  menu  initiated  by 
the  BG  Controller  or  any  BG  Task.  Fig.  5.2  displays  the 
layout . 

When  a  new  menu  is  being  displayed,  the  menu  field 
will  be  erased  first.  To  erase  the  image  on  a  line,  the  im¬ 
age  can  be  overwritten  with  blank  characters  (quite  slow)  or 
it  can  be  erased  up  to  the  end  of  the  line.  The  latter 
method  is  faster  and  has  been  implemented.  This  is  the  rea¬ 
son  why  the  permanent  buttons  are  displayed  on  the  left  side 
of  the  screen. 

As  the  permanent  buttons  always  are  displayed  at  the 
same  locations,  the  operator,  once  familiar  with  the  layout, 
can  easily  locate  these  buttons. 
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Menu  Stack  'mens  tk 


The  BG  Controller  allows  the  operator  to  have  ini¬ 
tiated  several  functions  at  a  time.  Thus  the  Menu  Manager 
has  to  keep  track  of  all  functions  and  their  related  menus. 
This  is  done  using  a  menu  stack.  The  top  of  this  stack  al¬ 
ways  holds  the  controller  menu  being  displayed.  If  a  new 
controller  menu  is  requested,  it  is  placed  on  the  stack  and 
it  will  be  displayed.  The  menu  stack  holds  20  menu  identif¬ 
ier.  If  a  stack  overflow  occurs,  it  is  saved  on  disc  in  the 
menu  stack  file.  In  case  of  a  menu  stack  underflow,  an  ex¬ 
isting  stack  from  the  menu  stack  file  is  retrieved. 

3 .  Menu  Hierarchy 

There  exist  three  different  kind  of  menus  in  the  BG 
Monitor.  (1)  The  Initial  Start  Menu  contains  the  image  of 
the  permanent  buttons  and  is  displayed  at  the  program  start. 
(2)  The  display  of  Controller  Menus  is  initiated  by  select¬ 
ing  a  permanent  button  or  a  button  of  another  Controller 
Menu.  (3)  Task  Menus  are  initiated  by  BG  Tasks.  There  ex¬ 
ists  only  one  Task  Menu  at  a  time  in  the  Menu  Manager.  Its 
menu  identifier  is  stored  in  'icurtm'.  It  is  either  being 
displayed  or  waiting  to  be  displayed. 

The  Menu  Manager  displays  a  new  menu  using  this 
priority  scheme:  First  any  Controller  Menu  in  the  menu  stack 
is  selected.  If  there  is  none,  any  waiting  Task  Menu  is 
considered.  If  there  is  none,  the  Initial  Start  Menu  will 
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4 .  Menu  Structure 

All  menus  are  organized  In  a  tree  structure.  Each 
menu  provides  information  about  its  predecessor  menu  and 
each  of  its  buttons  nay  request  a  successor  menu.  Thus  it 
is  possible  to  always  go  up  and  down  within  this  menu  tree. 
The  Menu  Manager  keeps  track  of  all  paths  within  this  tree 
structure  that  have  been  selected  by  initiation  of  one  or 
more  functions.  Actually  only  the  menu  at  the  bottom  of  a 
particular  path  has  to  be  saved.  A  predecessor  menu  always 
can  be  determined  uniquely.  Its  menu-id  is  part  of  the  in¬ 
formation  provided  by  a  menu  and  is  stored  for  all  menus  be¬ 
ing  displayed  in  'ipredm'. 

The  menu  stack  'menstk'  saves  the  menu-ids  of  all 
menus  at  the  bottom  of  a  path.  Thus  a  new  menu  of  the  sane 
function  just  replaces  the  predecessor  menu  on  top  of  the 
menu  stack.  A  new  menu  of  a  different  function  is  placed  on 
top  of  the  stack.  If  an  active  function  is  deactivated 
(erasing  of  the  menu  at  the  bottom  of  a  path),  the  next  menu 
in  the  stack  will  invoke  that  function  having  been  active 
previously . 

This  method  provides  the  possibility  for  an  operator 
to  initiate  as  many  functions  as  he  wishes.  This  allows  him 
to  have  several  functions  at  intermediate  steps  at  the  same 
time.  In  addition,  a  BG  Task  may  run  and  perform  a  variety 
of  actions  that  do  not  require  operator  inputs. 

Many  activities  within  a  function  only  require  the 
display  of  another  menu.  Thus  a  great  deal  of  logic  and  de- 
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cisions  is  builc  into  the  menu  structure.  This  permits  a 
simpler  program  logic  and  shifts  many  changes  of  the  BG  Mon¬ 
itor  towards  an  update  of  the  menu  file,  which  requires  no 
program  modification. 

5 .  Functions 

Depending  on  the  requested  function  and  the  status 
of  the  menu  stack  these  related  actions  will  follow: 

(1)  Update  of  the  menu  stack,  (2)  retrieval  and  display  of 
the  menu's  image,  (3)  retrieval  and  storage  of  the  input  op¬ 
tions,  and  (4)  update  of  any  button  enhancements.  Fig.  5.3 
displays  the  overall  program  structure. 


H.  PARAMETER  BLOCK  MANAGER 

The  actions  of  the  FG  Monitor  are  based  on  information 
stored  in  the  Parameter  Block  (PB).  These  parameters  nay  be 
modified  by  the  operator  independent  of  any  BG  Task  running. 
The  related  operator  interaction  is  processed  by  the  Parame¬ 
ter  Block  Manager. 

The  PB  Manager  saves  all  new  parameters  in  the  PB. 
After  completion  of  the  update,  the  PB  is  sent  to  the  FG 
Monitor  using  the  communication  services  provided  by  RT-11. 
The  PB  must  not  be  sent  to  the  FC  Monitor  before  the  whole 
update  is  completed.  This  could  result  in  invalid  interre¬ 
lationship  between  the  parameters  available  to  the  FG  Moni¬ 
tor  (i.e.  some  parameter  changes  have  to  be  done  simultane¬ 
ously)  . 

I.  LOG  MANAGER 

When  requested  all  operator's  inputs  will  be  logged  and 
saved  in  the  log  file.  The  plain-English  log  text  can  be 
retrieved  from  the  input  option  information  stored  in  common 
data.  The  Log  Manager  sequentially  writes  these  log  texts 
onto  the  disc.  The  contents  of  the  log  file  can  be  printed 
to  trace  all  the  operator's  actions. 

K.  MESSAGE  MANAGER 

The  Message  Manager  is  responsible  for  updating  the  mes¬ 
sage  field  and  the  enhancement  of  the  ACKNOWLEDGE  button  on 
the  HP  Terminal  display.  It  processes  requests  by  either 
the  BG  Controller  or  any  BG  Task  to  display  or  erase  nes- 
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sages.  These  messages  may  be  initialized  by  an  operator's 
input  or  by  any  failure  detected  by  the  BG  Monitor.  These 
two  types  are  handled  differently.  Only  one  operator  input 
related  message  is  expected  to  be  existent  when  the  Message 
Manager  is  called  by  RT-11.  It  is  assumed  that  the  operator 
has  no  chance  to  do  another  invalid  input  before  the  Message 
Manager  processes  the  first  illegal  input. 

Also  it  is  assumed  that  a  BG  Task  only  generates  one 
warning  message  before  the  Message  Manager  will  be  called. 
This  is  because  a  BG  Task  executes  as  a  mainline  program. 
If  it  detects  an  error  it  schedules  the  Message  Manager,  a 
completion  routine,  at  once.  Thus  the  Message  Manager  will 
be  called  and  the  BG  Task's  execution  will  be  interrupted. 
Warning  messages  generated  by  the  BC  Controller,  however, 
may  be  generated  when  executing  on  completion  routine  level. 
As  these  completion  routines  do  not  interrupt  each  other, 
there  may  be  more  than  one  warning  message  to  be  processed 
by  the  Message  Manager  when  it  is  called. 

1 .  Input  Related  Messages 

When  any  program  detects  an  illegal  operator  input 
it  places  a  raessage  text  in  'inpmsg'  and  schedules  the  Mes¬ 
sage  Manager  to  be  executed  at  once.  The  Message  Manager 
then  displays  this  message  on  the  related  line  within  the 
message  field  on  the  screen.  Any  other  input  related  mes¬ 
sage  being  displayed  will  be  overwritten.  Thus  the  raessage 
always  responds  to  the  last  operator's  input. 


Any  input  related  message  will  be  erased  when  the 


operator  does  any  input.  The  Input  Manager  always  schedules 
the  Message  Manager  to  erase  any  existing  input  related  mes¬ 
sage  when  a  valid  input  has  been  made.  In  case  of  an  ille¬ 
gal  input  the  old  message  will  be  overwriten  by  a  new  one. 

2 .  Warning  Messages 

The  text  of  a  warning  message  generated  by  a  3C  Task 
will  be  in  'iwmsg'.  Warning  messages  generated  by  the  BC 
Controller  are  saved  in  'msgw'. 

If  no  warning  message  is  being  displayed  the  new 
message  will  be  written  on  the  screen.  If  there  is  already 
a  warning  message  being  displayed  the  new  one  will  be  saved 
on  the  message  stack.  In  case  of  a  stack  overflow  it  will 
be  saved  on  disc  in  the  message  stack  file.  The  Message 
Manager  will  retrieve  all  stacked  messages  using  the  first- 
in  first-out  (FIFO)  scheme.  The  message  stack  is  divided 
into  a  lower  and  an  upper  half.  A  read  index  points  to  the 
next  message  to  retrieve  from  the  stack;  a  write  index 
points  to  the  next  free  entry  in  the  stack.  The  read  index 
always  stays  in  the  lower  half  of  the  stack.  If  only  the 
lower  stack  half  is  used,  the  write  index  stays  in  this 
half.  Else  it  always  points  to  entries  in  the  upper  half. 

When  the  upper  half  is  filled,  it  is  saved  in  the 
Message  Stack  File  and  the  write  index  is  reset  to  the  be¬ 
ginning  of  the  upper  half.  When  the  read  index  reaches  the 
end  of  the  lower  half,  the  lower  half  is  filled  either  with 
a  saved  stack  in  the  file  or  with  the  upper  half.  The  read 
index  is  reset  and  in  the  latter  case  the  write  index  points 
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to  an  entry  in  the  lower  half.  Fig.  5.4  illustrates  an  ex- 
ample. 

Any  saved  warning  message  will  cause  a  blinking  of 
the  ACKNOWLEDGE  button.  Upon  selection  of  the  ACKNOWLEDGE 
button  the  operator  may  initiate  erasing  of  a  displayed 
warning  message.  The  Message  Manager  will  display  any  other 
waiting  message  from  the  message  stack  or  clear  the  message 
line  on  the  screen.  If  there  are  no  more  warning  messages 
waiting  on  the  message  stack  the  ACKNOWLEDGE  button  will 
stop  blinking. 
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Phases: 


I  -  Only  lower  stack  half  in  use 
II  -  Upper  half  has  been  filled  and  is  written 
on  disc;  write  will  continue 
III  -  lower  half  is  read;  read  will  continue 
IV  -  stack  half  is  retrieved  from  disc; 
read  will  continue 

V  -  lower  half  has  been  read; read  will  continue 
VI  -  Upper  half  has  been  moved  into  lower  half 

Legend:  ©-  Sequence  of  message  blocks 

R  -  Read  index;  W  -  Write  index 


VI 


BACKGROUND  TASKS 


A.  INTRODUCTION 

A  BG  Task  performs  a  group  of  related  functions.  It  ex¬ 
ecutes  as  a  BG  mainline  program.  The  BG  Tasks  are  indepen¬ 
dent  of  each  other  and  only  one  will  be  executed  at  a  time. 
Thus  the  overlay  structure  of  RT-11  is  used.  When  linking 
the  BG  Monitor  all  BG  Tasks  will  be  assigned  to  the  same 
memory  area.  When  a  certain  BG  Task  is  called  by  the  Execu¬ 
tive  it  will  be  loaded  if  not  already  in  memory. 

E.  BACKGROUND  TASK  STRUCTURE 

After  a  EC  Task  has  been  started  it  will  execute  in¬ 
dependently  of  other  BG  Controller  functions.  Only  if  the 
BG  Task  needs  some  operator  input  to  proceed  it  will  call 
the  Control  I/O  Manager.  Also  it  may  schedule  the  call  of 
the  Message  Manager  to  display  or  erase  a  message. 

The  operator  has  the  option  to  start  a  new  BG  Task  while 
another  is  executing.  Thus  the  old  one  has  to  be  killed. 
The  Executive  will  set  a  common  data  unit,  the  'KILL-flag', 
which  indicates  that  the  running  BG  Task  is  to  be  killed. 

To  recognize  this  condition  the  BG  Task  has  to  check 
this  flag.  Thus  the  design  of  a  BG  Task  has  to  be  done  in 
such  a  way  that  the  control  path  always  passes  certain  check 
points  to  examine  the  KILL  flag.  When  the  KILL  condition  is 
recognized  the  BG  Task  must  not  initialize  any  new  I/O  or 
schedule  any  other  program.  It  returns  control  to  the  Exe¬ 
cutive  after  all  initialized  I/O  has  been  completed.  Ap- 
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propriately  the  KILL  condition  is  checked  after  a  specific 
sub-function  has  been  completed  or  while  waiting  for  I/O 
completion* 
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VII 


SUPPORT  SOFTWARE 


A.  INTRODUCTION 

Most  of  the  BG  Monitor's  actions  are  determined  by  the 
contents  of  the  menu  file.  This  file  contains  all  informa¬ 
tion  to  create  an  image  on  the  HP  Terminal  and  to  process 
the  operator's  inputs  from  keyboard  or  Touch  Input  System. 
It  is  generated  and  updated  using  Support  Software  that  ex¬ 
cutes  under  the  control  of  UNIX. 

One  program  updates  the  Menu  File,  it  is  called  Menu  Ed¬ 
itor.  Another  program,  the  Menu  Checker,  is  used  to  verify 
any  modifications  of  the  menu  file. 

B.  MENU  EDITOR 

1 .  Introduction 

The  Menu  Editor  processes  fixed  format  input  and  up¬ 
dates  the  menu  file.  To  simplify  the  menu  generation  the 
user  does  not  have  to  specify  the  exact  locations  of  text  or 
displayed  buttons  on  the  screen;  the  Menu  Editor  will  per¬ 
form  all  necessary  arrangements  of  the  image. 

The  Menu  Editor  needs  three  files  which  have  to  ex¬ 
ist  in  the  UNIX  file  system: 

-  menu  file, 

-  intermediate  menu  file, 

-  input  file. 

The  input  for  the  Menu  Editor  can  not  be  taken  from 
a  standard  input  device  because  the  program  reads  over  the 
input  file  twice.  The  first  time  all  requested  information 
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will  be  extracted  to  coapute  the  image  size,  to  get  the 


referenced  menu  names,  to  update  the  menu  file  directory, 
and  to  provide  the  Menu  Editor  with  sufficient  knowledge  to 
arrange  the  created  image.  During  the  second  read  over  the 
input  file  a  new  or  updated  menu  will  be  the  result. 

The  following  terminology  will  be  used  in  the  furth¬ 
er  presentation: 

-  image:  the  complete  image  of  the  HP 

Terminal 

-  image  block:  a  subset  of  the  image;  it  is 

one  block  of  text  or  it  is  a 
question  with  its  responses 

-  response:  subset  of  a  question  block; 

it  is  a  key  or  a  displayed 
button 

-  predecessor  menu:  a  menu  which  preceeds  some 

other  menu  in  the  display 
sequence 

-  successor  menu:  a  menu  which  succeeds  sone 

other  menu  in  the  display 
sequence 

The  Menu  Editor  Manual  in  the  appendix  will  give 
sufficient  information  about  how  to  use  the  program. 

2.  Files 

The  Menu  File  contains  a  Menu  File  Directory  and  the 
menus.  Its  records  have  a  fixed  length  of  544  bytes.  The 
directory  uses  20  records  with  45  entries  each.  For  a  menu, 
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6  records  are  needed  to  store  the  maximum  possible  amount  of 
information.  Because  UNIX  does  not  provide  direct  access 
I/O  in  FORTRAN,  the  Menu  File  has  to  be  read  sequentially. 
The  UNIX  I/O  system  does  not  write  leading  or  trailing  ASCII 
NUL  characters.  Therefore  it  is  crucial  that  the  bytes  1 
and  542  of  a  record  do  not  contain  such  a  character.  Anoth¬ 
er  constraint  by  UNIX  prohibits  more  then  fifteen  open  re¬ 
quests  for  files.  Thus  a  record  that  is  located  between  the 
beginning  of  a  file  and  the  read  pointer  can  only  be  ac¬ 
cessed  by  closing  and  reopening  the  file.  This  is  the  only 
way  to  reset  the  file's  pointers.  This  procedure  easily 
exceeds  the  maximum  number  of  file  open  requests.  Therefore 
a  Temporary  Menu  File,  'menuout',  is  used. 

There  are  two  reads  over  the  Menu  File.  The  first 
time  the  locations  of  referenced  menus  in  the  menu  file  are 
extracted.  Also  the  directory  is  updated  and  the  new  version 
is  copied  to  the  Temporary  Menu  File.  The  second  time  all 
unchanged  menu  records  are  copied  and  updated  records  are 
written  to  the  Temporary  Menu  File.  Finally  the  whole  Tem¬ 
porary  Menu  File  is  copied  to  the  Menu  File. 

When  creating  the  menu  records  each  question  or  text 
section  is  considered  to  be  an  image  block.  Such  a  block 
will  always  have  the  same  structure  depending  on  the  input. 
Text  simply  will  be  copied  in  the  demanded  form.  The  image 
commands  for  a  question  will  be  computed  depending  on  the 
location  of  the  buttons,  their  size,  and  their  number.  When 
the  number  of  required  lines  on  the  screen  is  determined  the 


whole  image  will  be  rearranged  by  separating  the  blocks  with 
available  blank  lines. 

3.  Functions 

The  Menu  Editor  will  perform  several  functions  which 
all  update  the  menu  file  directory  and  modify  menu  records. 

a.  Initial  Start  Menu 

The  first  menu  that  has  to  be  created  is  the  In¬ 
itial  Start  Menu.  This  function  initializes  the  Menu  File 
and  creates  entries  in  the  directory  for  all  initial  menus, 
like  Initial  Status  Menu,  Initial  Select  Menu,  and  so  on. 
The  3C  Monitor  expects  these  menus  at  fixed  record  loca¬ 
tions. 

The  records  of  the  Initial  Start  Menu  are  creat¬ 
ed.  The  image  records  will  contain  the  command  for  the  HP 
Terminal  to  (1)  draw  all  permanent  buttons  on  the  screen, 
and  (2)  to  clear  the  rest  of  the  screen.  Also  the  informa¬ 
tion  about  possible  input  options  is  stored. 

b .  Create  a  Menu 

This  function  Is  used  to  create  a  new  menu.  The 
first  empty  entry  in  the  menu  directory  will  be  filled  with 
the  new  menu  name  and  the  number  of  its  first  record.  If 
the  menu's  predecessor  menu  is  not  yet  existent  a  new  entry 
will  be  generated  for  it.  If  the  menu  has  any  successor 
menus  their  entries  will  be  searched  in  the  directory;  if 
they  are  not  yet  existent  new  entries  will  be  generated. 
After  the  directory  has  been  updated,  the  HP  Terminal  com¬ 
mands  and  information  about  possible  inputs  will  be  computed 
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and  scored  in  Che  menu  records. 

c.  UpdaCe  a  Ilenu 

This  funcCion  is  only  allowed  if  Che  referenced 
menu  is  already  in  Che  Menu  File.  Ics  location  is  recrieved 
from  Che  menu  directory  and  Che  menu  records  are  generated 
Che  same  way  as  with  menu  creation. 

d.  Delete  a  Menu 

This  function  simply  searches  the  referenced 
menu's  entry  in  the  menu  directory  and  deletes  it.  A  menu 
to  be  deleted  nay  have  successor  menus.  The  user  has  to 
delete  any  successor  menus  if  they  are  no  longer  needed. 
The  predecessor  menu  has  to  be  updated  as  well. 

C.  MENU  CHECKER 

1 .  Introduction 

This  program  allows  verification  of  any  modifica¬ 
tions  of  the  Menu  File.  It  extracts  the  contents  of  the 
menu  directory  and  the  menu  records.  The  function  requests 
are  taken  from  the  standard  input  device.  Output  is  done  at 
the  standard  output  device. 

The  Menu  Checker  Manual  in  the  appendix  will  give 
sufficient  information  about  how  to  use  the  program.  Also 
examples  of  possible  outputs  are  shown  following  the  appen¬ 
dices. 

2 .  Functions 

The  following  functions  may  be  selected  by  the  user: 

-  Directory:  All  entries  of  the  Menu  File 

directory  will  be  extracted 


Input  options:  All  information  about  possible 


Inage : 


input  options  of  a  specified 
menu  will  be  extracted 
The  HP  Terminal  commands  that 
create  the  image  will  be 
extracted 
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VIII.  BACKGROUND  MONITOR  FILES 

A.  INTRODUCTION 

The  BG  Monitor  uses  several  files  for  different  pur¬ 
poses.  A  Menu  File  contains  all  information  to  control  the 
operator  interaction  and  resulting  actions.  Two  temporary 
files,  the  Menu  Stack  File  and  the  Mesage  Stack  File  are 
used  to  save  any  overflown  stacks.  A  Log  File  will  contain 
plain-Engl ish  input  commands  done  by  the  operator. 

B.  MENU  FILE 

This  file  is  created  using  the  Menu  Editor.  Its  node  is 
direct  access  and  its  form  is  unformatted.  All  information 
is  represented  in  ASCII  characters.  Integers  are  converted 
into  a  2  character  ASCII  code  using  the  following  mapping: 
Upper  byte  ■  integer/30  +  40 
Lower  byte  ■  integer  modulo  30  +  40 

The  file  has  fixed  length  records  of  544  bytes  each.  A 
menu  occupies  6  records  to  store  its  information.  To  store 
the  directory  20  records  with  45  entries  each  are  used. 
Each  entry  contains  a  menu  name  and  the  location  of  its 
first  data  record.  The  menu  name  is  represented  in  10  ASCII 
characters.  The  pointer  to  a  menu's  first  data  record  is  a 
3  digit  integer.  There  exists  a  one-to-one  mapping  between 
the  location  of  a  directory  entry  and  the  location  of  the 
menu  records.  The  following  parameters  are  used: 

-  i:  location  of  the  first  menu  record  behind  the 
directory 
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-  j:  location  of  the  directory  record 

-  k:  pointer  to  entry  in  the  directory 

The  menu's  first  data  record  number  is  determined  by 
record  number  «  i  +  (45*(j“l)  +  k-l)*6. 

The  coded  record  number  is  only  used  by  the  Menu  Editor. 
The  BG  Controller  does  not  have  to  access  the  directory  at 
all.  References  to  a  menu  by  another  one  is  provided  by  its 
record  number  to  decrease  the  number  of  necessary  file 
accesses  . 

The  first  4  records  of  a  menu  are  used  to  store  the  HP 
terminal  commands  which  will  create  an  image  on  the  display. 
Subsets  of  a  command  string  are  separated  by  an  ASCII  '$'• 
The  end  of  data  in  an  image  record  Is  indicated  by  an  ASCII 
'I'.  The  last  used  image  record  has  an  ASCII  In  byte 

540.  These  three  ASCII  characters  therefor  must  not  be  used 
in  any  Image  text. 

The  last  two  records  contain  information  about  possible 
operator  inputs  as  well  as  a  parameter  block.  A  record  is 
partitioned  into  30  byte  sections,  thus  providing  entries 
for  18  input  options.  These  are  the  data  stored  for  each 
possible  input : 

-  word  1:  Legend  of  the  button  or  the  key 

(ASCII  character  in  lower  byte) 

-  word  2 

to  6:  plaln-English  log  command  (10  characters) 

-  word  7:  left  boundary  of  a  button 

-  word  8:  lower  boundary  of  a  button 
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-  word  9:  right  boundary  of  a  button 

-  word  10:  upper  boundary  of  a  button 

-  word  11:  action  code;  it  determines  the 

reaction  of  the  BC  Monitor 

-  word  12 

to  15:  used  for  any  additional  information 
(e.g.  BG  Task,  identifier) 

A  parameter  block  informs  the  Menu  Manager  about  some 
additional  menu  parameters.  The  predecessor's  menu-id  is 
stored.  The  number  of  possible  input  options  is  given.  Al¬ 
so  the  type  of  the  menu  (e.g.  Status  menu)  can  be  retrieved 
from  this  parameter  block.  Word  15  of  this  block  contains 
the  ASCII  characters  The  parameter  block  Is  located 

in  the  36th  entry  for  the  Initial  Start  Menu.  For  all  other 
menus  it  is  located  in  the  29th  entry.  Fig.  8.1  will 
display  the  file  layout. 
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Figure  8.1 
Menu  File  Layout 
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C.  MENU  STACK  FILE 

This  file  is  used  Co  intermediately  save  any  menu 
stacks.  Ic  is  a  direct  access,  unformatted  file.  One  stack 
consists  of  40  bytes  to  store  20  menu-ids.  Stacks  are  writ¬ 
ten  to  the  file  and  read  in  a  Last-out  First-in  scheme. 

D.  MESSAGE  STACK  FILE 

This  direct  access  file  saves  any  overflown  message 
stacks  in  unformatted  form.  A  message  stack  has  a  size  of 
12G  bytes.  The  scheme  to  save  and  retrieve  these  stacks  is 
First-out  First-in. 

E.  LOG  FILE 

When  logging  of  all  operator  input  commands  is  requested 
the  Log  Manager  writes  plain-English  commands  to  this  file. 
It  is  accessed  sequentially  and  is  formatted.  Each  command 
exists  of  10  ASCII  characters  and  the  contents  of  this  file 
can  be  listed  to  trace  all  operator  actions. 


IX.  CONCLUSIONS 


The  software  for  the  Background  (BC)  Monitor  documented 
in  this  thesis  has  been  developed  and  tested  successfully. 

The  data  in  the  Menu  File  causes  specific  actions  to  be 
taken  by  the  BC  Monitor  when  an  operator's  input  is  pro¬ 
cessed.  Thus  the  execution  of  the  BC  Monitor  is  to  a  large 
extent  controlled  by  the  contents  of  the  Menu  File.  This 
control,  imbedded  in  the  data,  decreased  the  size  of  the  BC 
Controller  and  allowed  a  general  program  structure  which  is 
very  flexible.  Many  changes  of  a  BC  Monitor's  function  can 
be  implemented  by  just  updating  the  Menu  File.  Thus  no  pro¬ 
gram  modifications  are  necessary. 

Extensions  of  a  certain  function  or  addition  of  new 
functions  without  changing  the  structure  of  the  BC  Monitor 
are  possible.  This  can  be  done  simply  by  adding  new  menus 
to  the  Menu  File  and  by  installing  a  new  BG  Task.  This  only 
requires  minor  changes  in  the  Executive  (to  call  the  BC 
Task)  and  creation  of  new  menus  in  the  Menu  File.  A  BC  Task 
can  be  developed  and  tested  separately  iron  the  existent  BC 
Monitor. 

Further  software  modifications  are  possible.  The  menu 
record  size  (now  544  bytes)  could  be  reduced  to  512  bytes 
(standard  physical  record  size  on  a  disc).  This  would  in¬ 
crease  the  speed  of  data  transfer  by  approximately  100  mil¬ 
liseconds.  The  new  size  would  be  sufficient  to  store  all 
information  about  a  specific  menu. 
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Certain  I/O  problems  with  the  operating  systems  caused  a 
considerable  delay  in  the  software  development.  UNIX  only 
allows  fifteen  requests  to  open  files  from  FORTRAN  programs. 
This  restriction  is  not  documented  in  the  UNIX  manuals.  To 
cope  with  this  problem,  the  form  of  some  file  operations  had 
to  be  changed. 

A  software  error  related  to  I/O  within  completion 
routines  was  detected  in  RT-11.  A  patch  received  from  the 
Digital  Equipment  Corporation  was  implemented  in  RT-11  and 
resolved  this  problen.  Source  code  for  this  patch  is  in¬ 
cluded  with  the  program  listing  section  of  this  thesis. 
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APPENDIX  A 

SUMMARY  OF  SOFTWARE  AND  DOCUMENTATION 

This  summary  lists  the  existing  programs  and  manuals 
which  have  been  written  during  the  software  development. 

-  BG  Monitor,  consisting  of  the  BG  Controller 
and  BG  Tasks 

-  Menu  Editor 

-  Menu  Checker 

-  Manual  for  the  Menu  Editor 

-  Manual  for  the  Menu  Checker. 


APPENDIX  B 


MENU  EDITOR  MANUAL 


A.  INTRODUCTION 


The  Menu 

Editor 

is  a 

program 

that 

executes  under 

the 

operating  system 

UNIX. 

It 

is 

used 

to 

create,  update 

,  or 

delete  menus 

in  the 

Menu 

File 

used 

by 

the 

BG  Monitor  of 

the 

SATCOM  Signal  Analyzer.  The  RATFOR  source  program  is  stored 
in  the  file  'cenued.r' .  The  executable  program  is  saved  in 
the  file  'menued'  .  The  Menu  Editor  will  execute  using  the 
command : 

menued 


B.  FILES 

The  Menu  Editor  requires  three  different  files  that  have 
to  exist  in  the  UNIX  file  system.  These  are  their 
f ilenanes : 

-  'nenuf ile'  :  This  is  the  Menu  File  that  will  be  used 

by  the  BG  Monitor. 

-  'nenuout'  :  This  is  a  temporary  menu  file  used  to 

store  intermediate  data. 

-  'infile'  :  This  file  contains  all  user  specified 

input  to  modify  the  Menu  File. 

All  files  will  be  accesses  sequentially,  the  contents  is 
coded  in  ASCII. 

1.  File  'oenuf ile' 

If  the  file  Initially  is  not  yet  existent,  it  has  to 
be  created  using  the  UNIX  Editor  'ned'.  Any  dunny  input  may 
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be  stored  in  the  file.  The  structure  of  'menufile'  will  be 
determined  by  the  Menu  Editor  when  it  is  accessed  the  first 
tine . 

The  file  consists  of  544  bytes  records.  Each  record 
stores  valid  information  within  the  first  540  bytes.  The 
last  four  bytes  will  contain  the  ASCII  characters  0,  0,  CR, 
LF.  The  Menu  Editor  will  write  records  with  a  length  of  542 
bytes.  UNIX  will  add  CR/LF,  thus  creating  a  record  of  544 
bytes  . 

The  first  20  records  will  contain  the  Menu  File 
directory.  Each  directory  record  allows  45  entries.  An  en¬ 
try  contains  a  menu  name  (10  ASCII  characters)  and  a  pointer 
to  the  first  data  record  of  that  menu.  The  initial  directo¬ 
ry  will  be  set  up  when  executing  the  function  'Create  Ini¬ 
tial  Start  Menu'. 

For  each  menu  6  records  will  be  used.  The  first 
four  records  contain  the  commands  to  create  an  image  on  the 
IIP  Terminal  display.  Subsets  of  command  strings  are 
separated  by  ASCII  '  $  ' .  The  end  of  usable  Image  commands  on 
a  record  Is  indicated  by  an  ASCII  'I'.  The  last  used  image 
record  will  contain  an  ASCII  '“'  in  byte  540.  These  three 
ASCII  characters  must  not  be  used  in  any  menu's  image  text. 

Two  additional  records  provide  information  about 
possible  operator  inputs  in  reaction  to  the  display  of  this 
menu.  These  records  are  partitioned  into  30  bytes  sections, 
thus  providing  entries  for  18  input  options  each.  The  in¬ 
formation  stored  for  each  input  option  will  be 


-  Label  of  a  button  or  key 

-  plain-English  log  command 

-  boundaries  of  a  displayed  button 

(lines  and  columns) 

-  an  action  code  to  determine  the 

BG  Monitor's  action 

-  additional  information  that  may  be  requested 

A  parameter  block  within  these  records  will  contain  addi¬ 
tional  information  about  some  menu  parameters.  It  stores 
(1)  the  predecessor's  menu-id,  (2)  the  menu's  type  ( e  .  g  . 
Status  Menu),  and  (3)  the  number  of  possible  input  options. 
Word  15  of  this  entry  will  contain  the  ASCII  characters 
'  '.  The  parameter  block  is  located  in  the  36th  entry  for 

the  Initial  Start  Menu.  For  all  other  menus  it  is  located 
in  the  29th  entry. 

2.  File  'menuout' 

If  this  file  does  not  yet  exist  in  the  UNIX  file 
system,  it  has  to  be  created  using  the  UNIX  Editor  'ned'. 
It  may  contain  any  data.  This  file  will  have  exactly  the 
same  structure  as  the  Menu  File.  It  is  used  to  copy  un¬ 
changed  records  from  'menufile'  and  to  add  updated  records. 
When  the  Menu  Editor  has  completed  its  requested  function, 
it  copies  the  contents  of  'menuout'  to  the  Menu  File 

3.  File  'infile' 

This  file  will  provide  all  information  necessary  to 
run  the  Menu  Editor.  The  file  is  to  be  created  using  the 
UNIX  Editor  'ned'.  The  following  terminology  will  be  used 
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in  this  nanual: 


-  predecessor  menu:  a  menu  which  preceeds  some 

other  menu  in  the  display 
sequence  ; 

-  successor  menu:  a  menu  which  succeeds  some 

other  menu  in  the  display 
sequence  ; 

-  image:  the  image  on  the  I:P  Terminal 

display  created  by  the  menu 

-  image  block:  a  subset  of  the  image;  it  is 

one  block  of  text  or  it  is  a 
question  with  its  responses; 

-  response:  subset  of  a  question  block; 

it  is  a  key  or  a  displayed 
button; 

All  integer  inputs  have  to  be  ended  with  Character  in¬ 

puts  have  to  be  ended  with  'O'.  A  line  of  text  is  to  be 
ended  either  by  '|'  (if  it  is  not  the  last  text  line)  or  by 
'G'.  Comments  are  allowed  on  each  line  following  these  end¬ 
ing  symbols. 

a.  Format  of  'infile' 

The  input  format  is  given  below.  A  number  in 
parentheses  indicates  the  line  number  in  'infile'. 
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for  all  functions . . . 

(1)  :  function  code 

for  delete,  create,  update... 

(2)  :  menu  name 

for  create,  update... 

(3)  :  predecessor  menu  name 

(4)  :  menu  type 

( 5 )  :  menu  title 

(6)  :  number  of  image  blocks 
for  each  image  block... 

:  start-block  code  (126) 

:  number  of  responses 
:  location  of  buttons 
:  size  of  buttons 
:  text  lines 

for  each  response... 

:  start  response  code  (127) 

:  label  of  button 
:  log  command 
:  action  code 
:  annex 

b.  Contents  of  'infile' 

This  section  will  specify  which  values  are  valid 
for  all  possible  inputs, 
function  code: 

1  -  DELETE  an  existing  menu 

2  -  CREATE  a  new  menu 


3  -  UPDATE  an  existing  menu 

8  -  CREATE  INITIAL  START  menu 
menu  names,  log  command: 

10  characters 
menu  type: 

1  -  INITIAL  START  menu 

2  -  STATUS  menus 

3  -  SELECT  menus 

4  -  HELP  menus 

5  -  CONTROL  menus 

6  -  BG  TASK  menus 
menu  title: 

text  for  first  line  on  top  of  menu  image 
location  of  buttons: 

1  -  button  row  below  the  text 

2  -  button  row  beside  the  text 

3  -  button  colunn  beside  the  text 
size  of  buttons: 

number  of  lines  the  button  will  cover 
text: 

one  or  more  lines  of  text 
label : 

1  character 
action  code: 

1  -  display  a  new  menu 

3  -  return  an  integer 

4  -  return  a  character 
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5  -  display  the  previous  nenu 
7  -  HARDCOPY  CRT  1 
?.  -  HARDCOPY  CRT2 
9  -  ACKNOWLEDGE 

10-  STATUS 

11-  SELECT 

12-  HELP 

13-  CONTROL 

14-  New  BG  Task 

15-  Change  Parameter  Block 
annex : 

action  code  1:  menu  name 
action  code  3:  integer 
action  code  4:  character 
action  code  14:  3G  Task  identifier 
c.  Example 

This  section  will  give  an  example  of  how  the 
'infile'  might  look  like.  This  input  causes  the  Menu  Editor 
to  create  a  new  menu  which  has  one  question  block  with  two 
responses  and  a  pure  text  block. 


2, 

testoenu  0 
start menu  @ 

6, 

first  Task  menuG 
2, 

126, 


create  a  new  menu 
name  of  the  new  menu 
predecessor  menu 
menu  type:  Task  menu 
text  of  title  on  top  line 
2  image  blocks 
start-code  for  first  block 
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2,  2  responses 

3t  button  column  beside  text 

3,  button  size  3  lines 

This  is  the  text  of  the  questionl  1st  line 

If  you  want  to  continue  touch  'Y'|  2nd  line 


else 

touch 

button 

3rd  line 

127, 

start-code  1st 

response 

label  of  button 

No 

0 

log  command 

3, 

action:  re  turn 

integer 

20, 

integer  to  return 

127, 

start-code  2nd 

response 

Y@ 

Label  of  button 

Yes 

@ 

Log  command 

1, 

action :  display 

new  menu 

nextnenu 

0 

menu  name 

126, 

start-code  2nd 

block 

o, 

no  responses 

o. 

no  but  tons 

o. 

no  button  size 

This  is 

a  pure 

text 

block  I 

It  just 

gives 

some 

information  and  has! 

no  input 

options^ 
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C.  SEQUENCE  OF  MENU  GENERATION 

The  Initial  3C  Controller  menus  have  to  be  located  in 
fixed  Menu  File  records.  This  is  requested  because  the  EC 
Controller  of  the  SS A  has  to  find  these  nenus.  These  are 
the  associated  menu  records: 

1)  INITIAL  START  menu  —  21 

2)  initial  STATUS  menu  --  27 

3)  initial  SELECT  menu  —  33 

4)  initial  HELP  menu  --  39 

5)  initial  CONTROL  menu  --  45 

To  guarantee  this  sequence  the  INITIAL  START  menu  has  to  be 
generated  first.  The  Menu  Editor  then  will  set  up  the  Menu 
File  directory,  create  the  initial  start  menu,  and  place  the 
other  initial  3G  Controller  menus  into  the  directory.  The 
implementation  of  these  menus  then  has  to  be  done  using  the 
UPDATE  function. 

D.  FUNCTIONS 

1.  CREATE  INITIAL  START  menu 

This  is  the  very  first  function  the  Menu  Editor  has 
to  process.  It  will  build  the  Menu  File  directory  and  place 
the  entries  of  all  initial  menus  into  the  directory.  The 
menu  records  for  the  INITIAL  START  menu  will  be  created  and 
stored  following  the  directory. 

2.  CREATE  a  menu 

The  Menu  Editor  searches  the  menu  direcory  and  uses 
the  first  empty  entry  to  store  the  menu's  name  and  pointer 
to  its  records.  If  the  menu's  predecessor  menu  is  not  yet 
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existent  its  name  and  computed  pointer  will  be  placed  into 


the  directory.  If  the  menu  has  any  successor  menus,  they 
will  be  searched  in  the  directory,  if  they  are  not  yet 
created,  new  entries  for  them  will  be  generated. 

After  updating  the  directory  and  extracting  needed 
data  f roc  it  the  image  commands  and  information  about  possi¬ 
ble  input  options  will  be  generated  and  stored  in  the  menu's 
records  . 

3.  UPDATE  a  menu 

To  process  this  function,  the  referenced  menu  has  to 
be  in  the  'menjfile'.  Essentially  the  further  processing  is 
the  same  as  with  the  CREATE  function. 

4.  DELETE  a  menu 

The  menu's  entry  is  searched  in  the  menu  directory. 
Then  the  menu's  name  will  be  deleted.  A  deleted  menu  may  be 
a  predecessor  or  successor  of  other  menus.  The  user  has  to 
update  any  other  menus  that  are  affected  by  the  deletion. 

E.  MENU  CHECKER 

There  exists  a  program  'MENU  CHECKER'  that  allows  to 
verify  any  modification  of  the  'menufile'.  It  has  the  fol¬ 
lowing  functions: 

-  DIRECTORY:  Extract  all  entries  from  the 

Menu  File  directory 

-  INPUT  OPTIONS:  Extract  all  information  about 

possible  input  options  for  a 
specific  menu 

-  IMAGE:  Extract  the  image  generating 


.1! 


commands  for  a  specific  menu 


APPENDIX  C 


MENU  CHECKER  MANUAL 


A.  INTRODUCTION 

The  Menu  Checker  allows  Co  verify  the  contents  of  the 
Menu  File*  This  program  executes  under  the  operating  system 
UNIX  and  exists  as  an  executable  file.  The  file  "mcheck.r' 
stores  its  source  code.  The  Menu  Checker  will  execute  using 
the  command: 

me heck 

It  offers  the  following  functions  to  extract  data  from 
'menuf ile' : 

-  DIRECTORY:  Extract  all  entries  from  the 

Menu  File  directory 

-  INPUT  OPTIONS:  Extract  all  information  about 

possible  input  options  for  a 
specific  menu 

-  IMAGE:  Extract  the  image  generating 

commands  for  a  specific  menu 

The  Menu  Checker  needs  to  have  access  to  the  'menufile'. 
Input  is  taken  from  the  standard  input  device,  output  is 
directed  to  the  standard  output  device.  Non-printing  ASCII 
characters  of  the  image  commands  (e.g.  Escape)  will  not  ap¬ 
pear  in  the  output. 

B.  INPUT  FORMAT 

The  input  to  control  the  Menu  Checker  consists  of  one  or 
two  parameters.  An  integer  has  to  be  ended  with  an  and 
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a  10-character  menu  name  has  to  be  ended  with  ' . 


The  fol¬ 


lowing  example  shows  the  input  format  and  valid  parameters. 
The  input  sequence  is  indicated  by  the  numbers  in 
parentheses : 

(1)  :  function  code 

5  -  directory 

6  -  image 

7  -  input  options 

(2)  :  menu  name  for  functions  6,7 

example : 

6,  extract  image  commands 

startmenu  0  from  startmenu 


i 


SAIIPLE  OUTPUTS  OF  THE  MENU  CHECKER 


21 

statusO 

27 

se lec  1 0 

39 

controlO 

45 

statusl 

57 

0000000000 

0 

0000000000 

0 

0000000000 

0 

0000000000 

0 

cooooooooo 

0 

0000000000 

0 

0000000000 

n 

0000000000 

0 

0000000000 

0 

0000000000 

0 

0000000000 

0 

0000000000 

0 

0000000000 

0 

0000000000 

0 

0000000000 

0 

0000000000 

0 

0000000000 

0 

0000000000 

0 

0000000000 

0 

0000000000 

0 

0000000000 

0 

0000000000 

0 

0000000000 

0 

0000000000 

0 

0000000000 

0 

0000000000 

These  are  the  directory  records 


record  cumber:  1 

startmenu  21  status 
helpO  39  contro 

task  1  57  000000 

0000000000  0  000000 
0000000000  0  cooooo 

0000000000  0  000000 
0000000000  0  000000 
0000000000  0  000000 
0000000000  0  000000 
0000000000  0  000000 
0000000000  0  000000 
0000000000  0  000000 
0000000000  0  oooooc 

0000000000  o  oooooc 
0000000000  0  oooooc 

record  number:  2 

There  are  no  entries 

record  number:  3 
There  are  no  entries 

record  number:  4 

There  are  no  entries 

record  number:  5 

There  are  no  entries 

record  number:  6 

There  are  no  entries 

record  number:  7 

There  are  no  entries 

record  number:  8 

There  are  no  entries 

record  nunber:  9 
There  are  no  entries 

record  number:  10 
There  are  no  entries 


record  number:  11 


There  are  no  entries 

record  nunber:  12 
There  are  no  entries 

record  number:  13 
There  are  no  entries 

record  nunber:  14 
There  are  no  entries 

record  nunber:  IS 
There  are  no  entries 

record  number:  16 
There  are  no  entries 

record  nunber:  17 
There  are  no  entries 

record  nunber:  18 
There  are  no  entries 

record  nunber:  19 
There  are  no  entries 

record  nunber:  20 
There  are  no  entries 


Image  commands: 


a0  7C6a01Ca01r01CdJd(? 
a02r01Cd Jd0 
a03r01Cd Jd0 
a02r02CPR  1 
aO7C&aOlCaO5rOlCdJd0 
a06r01Cd Jd@ 
a07r0 lCd Jd@ 
a06r02C PR  2 
aO7C&aOlCaO9rOlCdJd0 
alOrOlCd Jd@ 
al IrOlCd Jd@ 
al0r02CSTAT 
aO7C&aOlCal3rOlCdJd0 
al4rOlCdJd0 
al5rOlCdJd0 
al4r02CCTRL 
a0  7C&a01Cal7r01CdJd(? 
alfir01CdJd@ 
al9r01Cd Jd@ 
al3r02CSEL 

a07C&a01Ca21r01CdJd@ 

a22r01CdJd<? 

a2  3r01CdJd(?a22r02CHELP 
al6C6alOCa21rlOCdJd@ 
a22r  lOCdJdO 
a23rlOCdJd0a22rllCACK 
aOlr 12C 


Input  options  for  menu: 
first  record:  21 


startmenu 


nuciber  of  input  options:  7 
menu  type:  1 

predecessor  menu:  0000000C00 


input  option  1 
label:  P 

log  command:  PRINT  CRT1 
button  left  collumn:  1 
button  right  collumn:  6 
button  upper  row:  1 

button  lower  row:  3 
action  code:  7 


input  option  2 
label:  0 

log  command:  PRINT  CRT2 
button  left  collumn:  1 

button  right  collumn:  6 

button  upper  row:  5 

button  lower  row:  7 

action  code:  8 


input  option  3 
label:  A 

log  command:  ACKNOWLEDG 
button  left  collumn:  10 
button  right  collumn:  15 
button  upper  row:  21 
button  lower  row:  23 
action  code:  9 


input  option  4 
label:  S 

log  command:  STATUS 
button  left  collumn:  1 
button  right  collumn:  6 
button  upper  row:  9 
button  lower  row:  11 
action  code:  10 


input  option  5 
label:  E 

log  command:  SELECT 
button  left  collumn:  1 
button  right  collunn:  6 
button  upper  row:  17 
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button  lower  row:  19 
action  code:  11 


Input  option  6 
label:  !1 

log  command:  HELP 
button  left  collunn: 
button  right  collumn 
button  upper  row:  21 
button  lower  row:  23 
action  code:  12 


input  option  7 
label:  C 

log  command:  COfITROL 
button  left  collunn: 
button  right  collunn 
button  upper  row:  13 
button  lower  row:  15 
action  code:  13 


BACKGROUND  CONTROLLER  PROGRAM 


it 

if 


it 

{(f******************************  *****************  A*  AAA  A  **************** 
ft  ********************************************************************* 
#  * 

#  BACKGROUND  CONTROLLER 

#  * 
****** A ************** *********************** ************ ************** 
if  ********** ** ****************************************************** *** 


This  program  is  the  resident  part  of  the  Background  Monitor 

#  running  under  RT-11. 

#  Additional  Background  Tasks  are  stored  on  a  memory  image  file. 

#  When  a  call  is  made  to  such  a  Task,  the  RT-11  overlay  handler 

it  reads  it  from  the  memory  image  file  into  the  specified  overlay 

it  region. 

it 

it  The  Background  (BG)  Controller  has  the  following  components: 

It  -  EXECUTIVE 

it  This  is  the  Main  Program  of  the  BC  Controller.  It  is  called  by 

#  RT-11  to  start  the  execution  of  the  BG  Monitor. 

# 

it  -  CONTROL  I/O  MANAGER 

#  This  program  is  called  by  either  the  EXECUTIVE  or  any  Task 

#  to  process  an  operator  input  request  from  the  operator 

it  keyboard  or  the  touch  panel. 

it  Control  is  returned  after  a  requested  input  has  been  received 

it  from  the  operator. 

it 

it  -  INPUT  MANAGER 

it  This  program  is  called  initially  from  the  Executive  and  then 

it  re-schedules  itself  periodically. 

#  It  processes  all  operator  inputs  from  either  the  keyboard 

it 

it  -  CONTROL  COMMAND  MANAGER 

it  This  program  processes  all  operator  inputs  not  requested  by 

#  a  BG  Task. 

#  or  the  touch  panel. 

it 

it  -  MENU  MANAGER 

#  This  program  is  responsible  for  updating  the  display  on  the 

t  operator's  console  and  for  providing  the  other  parts  of  the 

#  BG  Controller  with  sufficient  information  of  any  possible 

#  inputs. 

#  The  required  information  will  be  stored  on  a  separate 

#  menu-file. 

# 

«  -  LOG  MANAGER 


if  This  program  logs  plain-English  commands,  numbers,  and  text 

If  on  a  requested  output  device, 

if 

if  -  PARAMETER  BLOCK  MANAGER 

if  This  program  updates  the  current  Parameter  Block,  saves  it 

if  on  disc,  and  transfers  it  to  the  Foreground  Monitor. 

if 

if  -  MESSAGE  MANAGER 

if  This  program  manages  the  displaying  and  erasing  of  any 

#  operator  input  related  messages  or  h/w  warning  messages. 

# 

j (J***** ******************************************************* ********* 


$** ******************************************************* ************ 

if  * 

if  0.  EXECUTIVE 

if  * 

jjf  **************  *******  ***  ******  ********************************  ****  *** 

if 

if  Initial  Release  —  hn/23  Aug  79 
if  NAME: 

if  bgexec 

#  FUNCTION: 

#  Main  program  of  the  BG  Controller 

if  The  EXECUTIVE  provides  common  routines  for 

if  the  BG  Controller 

if  CALLING  PROGRAM: 
if  Operating  System  RT-11 

if  NOTES: 

if  This  program  does  not  return  control  to  the  calling  program. 

if  ALGORITHM: 
if  bgexec: 

If  open  all  files  used  by  the  Controller 

if  call  all  completion  routines 

if  initialize  HP  Terminal  Display 

if  initialize  Carroll  Touch  Input  System 

if  and  save  them  for  future  use 

S  do  forever 

#  {  get  next  task  to  call  from  CONTROL  I/O  MGR; 

If  call  next  task; 

#  > 

if 

it  it  if  it  it  it  if  if  it  if  if  if  it  if  it  it  if  if  if  it  if  if  It  it  it  if  it  if  it  if  if  it  MlhiiHt  Mil  if  ifil  if  if  iMifiht  if  if  iHtiHW  MM  if  M  it  if  itit  if 
if 


If  parameter 

for  menu  table  declarations 

define 

INMAX 

36 

if  max  input  options  per  menu 
if  (including  control  inputs) 

def ine 

CPTL 

15 

If 

if 

H  storage  length  per  input  option 
**  TBLMAX  -  INMAX  *  OPTL 
**  TBLMAX  >-  2*11RL 

define 

COKMAX 

7 

if  max  number  of  permanent 
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it  control  Input 


define 

TBLMAX 

540 

it  max  length  of  menu  table 

define 

IMAGEX 

270 

it  index  in  nentbl  where  the 
it  temporary  image  storage  starts 

it 

**  Il'AGEX  -  TBLMAX  /  2 

define 

TEXTL 

40 

it  max  word  length  of  text  input 

define 

TML 

10 

it  max  word  length  of  task  name 

define 

MSGL 

56 

it  max  word  length  of  displayed  message 

define 

MSGWL 

140 

it  word  length  of  array  msgw 

define 

ENDOFM 

126 

it  code  for  end-of-raessage  used  in 
it  array  msgw  and  msgstk 

define 

ENDOFI 

124 

it  end-of-input  code 
it  used  in  nenu  records 

define 

EKDOFR 

126 

it  end-of-record  code  to  indicate 

it  that  a  physical  record  is  the  last 
it  one  of  a  logical  menu  record. 

it  word 

length 

of  TT  display  buffer 

define 

TTEUFL 

80 

it  80  characters 

define 

INTTL 

20 

it  input  buffer  length  from  TT 

it  Input 

parameter  for  subroutine  errmsg 

define 

INM 

1 

It  store  input  related  message 

define 

KM 

2 

it  store  warning  message 

it  Logical  unit  number  definitions 

define 

LUMSG 

10 

it  Message-stack  file 

define 

LUMSTK 

11 

it  Menu-stack  file 

define 

LUMENU 

12 

it  Menu  file 

define 

LUTTD 

13 

it  Touch  Terminal  Display 

define 

LUTSYS 

14 

it  Touch  System 

define 

LULOC 

15 

it  Command  Log  File 

define 

OUT 

6 

it  test  output 

it  length  of  physical  menu  records 

define 

URL 

2/0 

it  word  length  of  physical  record 

define 

MRBL 

540 

it  byte  length  of  physical  record 

It  hax  number 

of  records  used  by  one  menu 

define 

IMGREC 

4 

it  Hax  number  for  image 

def ine 

OPTREC 

2 

it  Max  number  for  input  options 

it  Stack 

size 

parameter 

def ine 

I.ENSTX 

20 

It  Max  menu  stack  size 

define 

LCSTL1 

120 

it  Max  warning  message 

It  stack  size 

•ief  ine 

MG STL 2 

60 

it  half  message  stack  size 

9  MG STL 2  -  MG STL  1  /  2 

t  Input 

parameter  definitions  for  MENU  MGR 

#•  ‘ 

:■  I  IN 

l 

it  display  initial  start  menu 

*■  **  9 

-  vf:- 

* 

it  display  status  menu 
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define 

DSEHN 

3 

it 

display  select  menu 

define 

DHhEN 

4 

It 

display  help  menu 

define 

DCMEN 

5 

if 

display  control  menu 

define 

DTMEN 

6 

Jt 

V 

display  task  menu 

define 

ECKEH 

7 

it 

erase  controller  menu 

define 

ETMEN 

8 

it 

erase  task  menu 

it  Input 

parameter 

definitions  for  MESSAGE  MGR 

define 

EINPUT 

9 

it 

Erase  input  related  msg 

define 

EWARN 

10 

it 

Erase  warning  msg 

def ine 

DINPUT 

11 

it 

Display  input  rel.  msg 

def ine 

DWARN 

12 

it 

Display  warning  msg  from  controller 

define 

D WAR NT 

13 

it 

Display  warning  msg  from  task 

It  Action  codes  fror.  nenu  file 
it  These  rust  not  be  changed 


define 

ACODEM 

l 

it 

display  new  menu 

define 

ACODET 

2 

it 

return  text  buffer 

define 

ACODEN 

3 

it 

return  integer 

define 

ACCDEC 

4 

it 

return  character 

define 

ACODEP 

5 

it 

display  previous  menu 

define 

ACODP1 

7 

it 

PRINT  CRT 1 

define 

AC0DP2 

8 

t> 

PRINT  CRT 2 

define 

ACODAC 

9 

It 

ACKNOWLEDGE 

define 

ACODST 

10 

it 

STATUS 

define 

ACCDSE 

11 

it 

SELECT 

define 

ACODHP 

12 

it 

HELP 

define 

ACODCN 

13 

g 

CONTROL 

define 

ACODTK 

14 

it 

New  BG  Task 

define 

ACODPB 

15 

it 

change  PB 

It  Input  parameter  definitions  for  common 
It  subroutine  enhanc 


define 

REV 

1 

it  Reverse  button 

define 

BLKBEG 

2 

it  Start  blinking 

define 

BLKEND 

3 

it  Stop  blinking 

define 

REVEND 

4 

it  stop  reverse  button 

it  Symbolic 

menu  type  definitions 

it  These 

must  not  be  changed 

define 

START 

1 

#  Start  menu  being  displayed 

define 

STATUS 

2 

it  Status  menu  being  displayed 

define 

SELECT 

3 

it  Select  menu 

define 

HELP 

4 

it  Help  menu 

define 

CONTROL 

5 

It  Control  menu 

define 

TASK 

6 

it  BG  Task  menu 

it  Symbolic 

indices  for  inopt  word  locations 

define 

KEY 

1 

it  keyboard  entry  code 

def ine 

PLAIN 

2 

It  Plain-English  command 

define 

LX 

7 

It  Lower  left  x-coordinate 

define 

LY 

8 

it  Lower  left  y-coordinate 

define 

RX 

9 

it  Upper  right  x-coordinate 

define 

UY 

10 

It  Upper  right  y-coordinate 

define 

CODE 

11 

It 

Action  code 

define 

ANNEX 

12 

It 

Additional  info 

It  Symbolic 

parameter  values 

define 

OK 

1 

define 

MOTOR 

0 

define 

DONE 

1 

define 

NODOWE 

0 

It  Symbolic 

names  : 

for  flags  and  parameters 

define 

KILL 

1 

It 

killfl 

define 

NOKILL 

0 

It 

killfl 

def  ine 

11ENU 

1 

It 

input  control  i/o  mgr 

define 

NOMENU 

0 

It 

input  control  i/o  mgr 

define 

NOACTN 

0 

It 

input  completion  routines 

define 

ACTION 

1 

It 

input  input  mgr 

define 

ACCEPT 

1 

It 

inflag 

def ine 

NOACPT 

0 

it 

inflag 

It  Symbolic 

cursor 

coordinates 

define 

MIX 

21 

It 

start  x  of  first  message 

define 

M1Y 

21 

It 

start  y  of  first  message 

define 

M2X 

21 

It 

start  x  of  second  message 

define 

M2Y 

22 

It 

start  y  of  second  message 

it  ASCCI 

constant 

for  initializing  HP  Touch 

define 

UNC 

94 

It  Uncover  code  '“' 

define 

STP 

92 

It  Stop  code 

define 

CON 

128 

It  Control  code 

It  Mote:  This  must  not  be  0,  an  unused  bit  is  used  (-1 ) 
It  If  it  were  0,  it  would  be  truncated  as  trailing  NUL 


It  The  raenu  table  is  used  in  the  following  way: 

It  -  temporary  storage  for  the  inage  records 
//  using  the  upper  half  of  nentbl 
It  (start  at  rnentbl(IMAGEX)  ) 

It  -  input  options  for  permanent  displayed  'buttons' 

#  at  the  top,  and  input  options  for  non-permanent 
It  'buttons' 

It  A  program  that  accesses  the  input  options,  declares 
It  an  array  inop t(0PTL, INMAX)  and  equivalences  it  with 
It  the  common  array  nentbl. 

It  integer*2  inopt(OPTL,INNAX) ; 

It  equivalence  (mentbl(l),  inopt(I,I>); 

it  Menu  Table  declaration,  nunber  of  input  options 
common  /blkl/mentbl(TBLMAX) ,  nunopt; 

It  Operator  input  storage  declarations 

It  text, number, character, pointer  for  text  buffer 
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common  /blk2/intext(TEXTL) ,innunb, inchar, intxtp; 


i i  Storage  for  menu-id's  to  be  erased  or 
If  to  be  displayed,  initiated  by  the  controller 
common  /blk3/iecnen, icntenu; 

if  Storage  for  menu-id's  to  be  erased  or 
if  to  be  displayed,  initiated  by  a  task 
common  /blk4/letmen,itmenu; 

If  Storage  for  operator  input  related  messages 
#  and  warning  messages  from  tasks 
logical*l  inpmsg(MSGL) ,  iwmsg(MSCL) ; 
common  /blk5/inpmsg,  iwrcsg; 

If  Storage  for 

if  warning  messages  from  BC  Controller, 
if  read  and  write  pointer  for  msgw 
logical*l  nsgw(MSGWL) ; 
common  /blk6/msgw,msgwpr,nsgwpw; 

if  Menu  stack,  stack  pointer,  number  of  saved  menu  stacks 
common  /blk7/raenstk(M£NSTX) ,  menstp,  menstn; 

If  Message  stack,  stack  read  and  write  pointer 
logical*l  rnsgstk(MCSTLl) ; 
common  /blk8/msgstk,  msgstr,  msgstw; 

if  Menu  record  number  of  current  menu's  predecessor, 
if  menu  record  nunber  of  current  or  saved  task  menu  , 
if  name  of  active  BG  Task  (if  any), 
if  and  current  menu's  type 
common  /blk9/ipredn, icurtra, iactsk(TNL) ,  mentyp; 


if  KILL  flag  (1:  Kill  current  BG  Task) 

if  INPUT  flag  (0:  accept  no  input;  1:  accept  input) 
common  /blklO/killf 1,  inflag; 

#  record  numbers  of  initial  menus  known 

if  to  the  BG  Controller 

If  l)Status,  2)Select,  3)Uelp,  4)Control  5)Start 
common  /blkll/instat,  insel,  inhelp,  incont,  instrt; 

#  number  of  warning  messages  to  be  displayed 

if  index  to  warning  message  stack  half  to  write  into 

If  first  message  stack  record  nunber  on  disc  file 

#  last  message  stack  record  number  on  disc  file 
common  /blkl2/msgcnt,  mgstsw,  mfrec,  mlrec; 

#  Input  buffer  from  TT  with  pointer 

if  flag  for  having  done  the  input  from  operator 
common  /blkl3/intt (INTTL) ,  inttp,  indone; 
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H  Index  of  permanent  button  (in  inopt) 
it  that  is  displayed  in  reverse  node 
common  /blkl4/ipenh; 

v  Saved  cursor  josition 
common  /blkl5/icursx,  icursy; 


i>  logical  units 

common  /blk.1 7/lumsg, lumstk, lunenu,luttd,lutsys ,lulog; 

It  data  to  communicate  with  the  HP  driver 
logical*!  char(80); 
integer*2  endchl,endch2,f lag, count ; 
common  /ttinbf /endchl ,endch2, flag, count , char ; 


il  queue  length  for  SYSF4  calls 
integer*2  qlen; 


integer*2  hpname(4);  #  RAD50  name  of  device  HP 
data  hpnair.e/3RHP  ,3R  ,3R  ,3R  /; 


integer*2  area(4);  it  area  for  itimer  call 

integer*2  areal (4);  It  area  for  itimer  call 

it  storage  for  initializing  commands  to  TT  Display 
logical*l  ttinit(8); 

it  ESC  E  ESC  J  ESC  )  B 
data  ttinit/O/,27,69,27,74,27,41 ,66/; 


if  storage  for  initializing  commands  to  Touch  System 
It  A  A  ESC  ESC  Uncover-code  Stop-code  Control-code 
if  Note  —  the  Control  code  has  to  be  non-zero  to 
il  prevent  it  to  be  regarded  as  trailing  NUL 

it  The  parity  bit(odd)  is  set  to  1 

it  The  sequence  is  preceeded  by  two  dummy  characters 

logical*l  hpinit(S); 

#  A  A  ESC  ESC  ~  128 

data  hp ini t /0 / , 65 , 65 , 2 7 , 2 7 , UtiC , STP , CON / ; 

data  luttd,lursg/LUTTD,LUliSG/; 
data  lumstk, lumenu/LUlJSTKjLUflEMU/; 
data  lulog/LULOG/; 
data  lutsys/LUTSYS/; 


external  bpnsgm; 
external  bgnenr; 
external  bginpr; 
external  encifbk; 


it  Call  all  completion  routines  with,  null  input. 
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#  requested  by  RT- 11,  no  action  will  be  taken, 
call  bgm.enn(f.GACTN) ; 
call  bRE'S}iia(NOACT?0 ; 
call  bginpm(;:t'ACi;i) ; 
call  encifbk(i;OACT:i) ; 


H  provide  sufficient  queue  length  fcr 
It  SYSF4  calls 

qlen-32; 
i-iqset (qlen) ; 


intxtp-1 ; 
msgwpr-l ; 
csgwpw-1 ; 
ir.enstp-0; 
wenstn«0; 
rsgstr-1 ; 
nsgstw-1 ; 
nsgcnt-0; 
msgtsw-1 ; 
mlrec-0; 
mf rec-0; 
inttp-1 ; 
ipredn-G; 
icurtrr«0; 
instrt»21; 
!H  I  1  l-M  H"f 


Jr  Initialize  common  data,  open  files 


f++ 


instat-27 ; 

insel-33; 

inhelp-39; 

incont-45; 

ih  I  I  I  H  II  H  H  h 


It 

f,; 

r 

ir 

If 

If 

i? 

ji 

if 

if 

u 

u 

if 

fin 

a 

it 


text  pointer 

read  pointer  warning  r.sg 

write  ptr  warning  nsp. 

menu  stack  pointer 

number  of  menu  stacks  on  disc 

read  ptr  ressage  stack 

write  ptr  message  stack 

number  of  displayed  warning  messages 

message  stack  half  to  write  into 

no  message  stack  on  disc 

no  message  stack  on  disc 

pointer  for  input  buffer  from  TT 

no  predecessor  menu 

no  task  menu 

record  number  of  initial  start  menu 
in  record  numbers  when  menufile  is  done 
Initial  status  menu 
initial  select  menu 
initial  help  menu 
initial  control  menu 


ipenh-0; 

endchl-STP; 

endch2«13; 

count-0; 


if  no  permanent  button  enhanced 
it  stop  code  for  input  from  Touch  Panel 
it  stop  code  for  input  from  keyboard  (CP.) 
it  pointer  for  operator  input  buffer 


It  open  all  files 

Z  open  (UNIT-lunsg,  NAME- 'SS:KSGSTK.  DAT '  ^YPE-'UNKNOl.'N' , 

Z  IACCESS - 'D IRECT ' , FORK- 'UN FORMAT! ED ' .RECORDSIZE-15, 

Z  2HAXREC-10) 

Z  open(UNIT-lumstk,KAME-'SS:MENSTK.DAT',TYPE-'UKKNOKN', 

Z  IACCESS- 'DIRECT' , FORM* 'UNFORMATTED' ,RECORDSIZE-10, 

Z  2MAXREC-10) 

Z  open  (UNIT-lumenu,NAME-'SS:  MEIiUFL.DAT' , TYPE- 'OLD ' , 

Z  1ACCESS-'DIRECT',F0RM-'UNF0RMATTED',REC0RDSIZE-136, 

Z  2MAXP.  EC-5  00,  READONLY) 

Z  open(UHIT-lulog,NAME-'SS:LOGCND.DAT',TYPE-'UNKNOWN', 

Z  IACCESS-' SEQUENTIAL ' , FORM-' FORMATTED ' ) 


It  lookup  device  HP  on  logical  unit  luttd 
i-lookup(luttd,hpname) ; 
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it  open  input  fron  touch  system 
10  read(luttd, 77 ,END*10)  endchl; 

It  format(al); 

it  initialize  TT  Display 
ihp*iwritw(4,ttinit,0,luttd) ; 

#  schedule  menu  mgr  to  display  initial  start  menu 
call  itiraer(0, 0,0,1, area, DIMEN, b£menn); 

t  Initialize  HP  Touch  System 
ihp*iwritw(4,hpinit,0,luttd) • 

It  start  periodic  scheduling  of  bginpra 
call  itimer(Q,0,0, 1 , areal , ACTION, bginpm) ; 

it  get  next  task  to  call 

while(l>0) 

{ 

call  bg cion (NOMENU ) ; 

killfl  -  NOKILL;  it  Reset  KILL  flag 

It  go  to  (1,2),  innumb;  it  branch  to  requested  task  call 

it  1  call  taskl; 

it  go  to  100; 

It  2  call  task2; 

it  100  continue; 

> 

%  close(UtJIT-lumsg) 

Z  close(UNIT-lumstk) 

Z  close(UNIT-lumenu) 

%  close (UNIT»lulog) 

end 

jfUrk  ******  it  it  Irk  irk*  *  **************  *  irk*  "kit  it  *******  **  ********  ***  **  *********  * 


******  *******  *********************  *  ********  ****************  *********** 

it  * 

it  COMMON  ROUTINES 

it  * 

^ *********************************************************** ********** 

t  The  following  common  routines  are  used  by  more  titan  one 

0  manager. 


****************  *************************  **************************** 
t  * 

It  0.1  E  N  D  F  B  K 

#  * 

it  ******************************************************************** 

it 

#  Initial  release  —  hn/4  Sept  79 
it  NAME: 

#  endfbk(index) 
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if  FUNCTION: 

it  Stop  any  feedback  initiated  by  an  operator's  input 

if  CALLING  PROGRAM: 

if  EXECUTIVE  --  the  very  first  time  (requested  by  RT-11) 

it  RT-11  —  endfbk  is  scheduled  using  itimer 

if  INPUT  PARAMETER: 

t  index  --  NOACTN :  dummy  call  from  EXECUTIVE 

if  index  of  input  'button'  in  array  inopt 

If  INFORMAL  INPUT: 

If  inopt  —  contains  input  option  information 

it  INFORMAL  OUTPUT: 

It  inflag  —  set  to  ACCEPT 

ft  NOTES: 

if  This  routine  is  a  completion  routine  and  will  not  be 

If  interrupted  by  any  other  BG  program 

it  ALGORITHM: 

It  if  call  from  EXECUTIVE  return 

It  If  'hardcopy  button'  reverse  button  image 

#  set  inflag  to  ACCEPT 

It  ' 

IfitlfifitititltifltltlfititittfltltitiiitifltlflUHtifiHIIttilHHKHiiHHHHhHUhlifititiUtitiHHtitifiHUfMiUtiHHtllltit 


subroutine  endfbk(index) ; 

#  Menu  Table  declaration,  number  of  input  options 
common  /bllcl /mentbl  (TBLMAX)  ,  numopt; 

It  KILL  flag  (1:  Kill  current  BC  Task) 
if  INPUT  flag  (0:  accept  no  input;  1:  accept  input) 
common  /blklO/killf 1,  inflag; 


It  array  containing  all  input  options 
integer*2  inopt(OPTL,INMAX) ; 
equivalence  (mentbl(l),  inopt (1,1)); 

It  return  if  call  from  EXECUTIVE 
if ( index**«NOACTN )  return; 

It  Get  action  code  of  input 
icode  -  inopt (CODE, index) ; 

If  If  hardcopy,  reverse  button 
If (icode  —  ACODPl  |  icode  —  AC0DP2) 
call  enhanc( index, RE VEND); 

inflag  •  ACCEPT; 

return; 

end 


********************************************************************** 
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it  * 

if  0.2  £  N  II  A  1J  C 

it  * 

{l********************************************************************* 

it 

it  Initial  release  —  hn/4  Sept  79 
it  NAME: 

it  enhanc(index,icode) 

#  FUNCTION : 

$  Perform  an  enhancement  function  at  the  TT 

it  CALLING  PROGRAM: 

#  Any  program  of  EG  Controller  that  wants  an  enhancement 
it  INPUT  PARAMETER: 

it  lcode  --  specifies  the  enhancement  type 

it  index  —  pointer  to  button  in  array  inopt 

it  INFORMAL  INPUT: 

#  inopt  —  input  option  information 
it  ALGORITHM: 

it  Get  coordinates  of  touch  field 

#  Give  enhancement  commands  to  TT 

#  return 

it 

ttittilititit1t1tittitifittti}ditltit1tit1t<tititniHHHHtiHHHtititiHHtit’.HtiHHt1ttHHttHHtnttMititttU'iHHtiHt 

subroutine  enhanc(index, icode) ; 


#  Menu  Table  declaration,  number  of  input  options 
common  /blkl/mentbl(TBLMAX) ,  nunopt; 

it  KILL  flag  (1:  Kill  current  BG  Task) 
it  INPUT  flag  (0:  accept  no  input;  1:  accept  input) 
common  /blklO/killf 1,  inflag; 

common  /blkl 7/lunsg, luns tk, lumenu , lu t td , lutsys , lulog ; 

it  Array  containing  all  input  option  information 
integer*2  inop t{0PTL, INMAX ) ; 
equivalence  (mentbl(l),  inopt (1,1)); 

#  arrays  containing  the  command  strings  to  do 
It  the  requested  enhancement 

logical*l  lcmdl(22),  icmd2(12),  icnd3(6); 

#  ESC3  ESC&axxrxxC  ESCl  ESC&axxC  ESC1  —  set  tabs 
data  icmdl/07, 2 7, 51, 27, 38, 97, 00, 00, 114, 00, 00, 67, 2 7, 49, 
27,38,97,00,00,67,27,49/; 

#  ESC&dxx  ESCI  ESC&d@  —  one  line  of  enhancement 
data  icmd2/07, 36, 27, 38, 100, 00, 2 7, 73, 27, 38, 100, 64/; 

#  ESCi  ESCB  —  back  tab,  down  one  row 
data  icmd3/07 , 36,27, 105 ,27 ,66/; 
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9  sec  enhancement 

if  (icode  —  REV)  It 

icnd2(6)*66 

else  if (icode  —  REVEND) 
icmd2(6)»74 

else  if (icode  —  BLKBEC) 
icmd2(6)«73 

else  if (icode  «  BLKEND) 
icmd2(6)“74; 


typ 

inverse  video 

#  inverse, half  bright 
if  blinking,  half  bright 
if  inverse,  half  bright 


if  set  coordinates 
ilx*inopt (LX, index) ;  # 
irx*inopt (RX, index) ;  if 
iuy*inopt  (UY,  index) ;  If 
ily«inopt(LY, index) ;  It 


of  button  into  command  string 

left  x 

right  x 

upper  y 

lower  y 


icmdl(7)*iuy/10+43; 
ictndl(8)*mod(iuy,  10)+48; 
icmdl(10)*irx/10+43; 
icmdl(ll)«mod(irx, 10)+48; 
icmdl (18)*ilx/10+48; 
icmdl (19)«mod (ilx, 10) +48; 


ihp«iwritw(ll ,icmdl,0, luttd) ; 
ihp-iwritw(6,icmd2,0, luttd) ; 

while(iuy<ily)  it  while  more  lines  to  enhance 

{ 

iuy»iuy+l ; 

ihp»iwritw(3,icmd3,0, luttd) ; 
ihp«iwritw(6,ictnd2,0, luttd) ; 

) 


return; 

end 


if********************************** *********************************** 

If  * 

It  0.3  ERRMSG 

It  * 

j jf  ************************************************************* ******** 

I 

If  Initial  release  —  hn/7  Sept  79 
It  NAME: 

#  errrosg(mtyp,mlen,mbuff ) 

#  FUNCTION: 

If  store  a  message  (Input  related  or  warning)  in  the  temporary 

#  message  stack  msgw  or  inpnsg  and  score  an  end-of -message 

If  word 

9  CALLING  PROGRAM: 


90 


#  Any  program  of  Che  BG  Controller  Chat  wants  a  message 

i *  to  be  displayed 

if  INPUT  PARAMETER : 


if 

if 

if 

if 

it 

it 

4 

if 

4 

if 

it 

if 


ir.typ  -  typ  of  message:  INK  -  input  related  message 

Wli  -  warning  message 
mien  -  length  of  message  (words) 
mbuff  -  array  containing  ASCII  text 
INFORMAL  INPUT: 

msgw  -  temp,  storage  for  warning  messages 
msgwpr  -  read  pointer  for  msgw 
msgwpw  -  write  pointer  for  msgw 
INFORMAL  OUTPUT: 

Same  as  informal  input 
Additionally 

inpmsg  -  text  of  input  related  message 


it  NOTE: 

if  An  overflow  of  this  temporary  stack  will  not  happen,  its 

if  length  is  sufficient  for  all  messages  generated  by  any 

if  completion  level  execution 

if  ALGORITHM: 

if  while  core  literals  to  store 

it  copy  a  word  of  literals 

if  increment  the  write  pointer 

if  if  the  write  pointer  >  stack-length 

if  set  write  pointer  »  1 

if  write  an  end-of -message  word 

if  increment  write  pointer 

if  if  write  pointer  >  stack-length 

if  set  write  pointer  »  l 

if 


iHtititi}ihHHHtituiiitiiiHttHiiiifitit#iHtitiiitii1Hf1i1iiiit1fiHtitiiitiHti}iHtilitiiitifitiiititiFitltihtifihtiHtititi!if 


subroutine  errmsg(mtyp, mien, mbuff) ; 


if  Storage  for  operator  input  related  messages 
if  and  warning  messages  from  tasks 
logical*l  inpmsg (MSCL) ,  iwmsg(MSGL) ; 
common  /blk5/inpmsg,  iwmsg; 

if  Storage  for 

if  warning  messages  fron  BG  Controller, 
if  read  and  write  pointer  for  msgw 
logical*!  msgw(MSGWL); 
common  /blk6/msgw, msgwpr, msgwpw; 

logical*l  mbuff (MSGL); 

if  Store  input  related  message 
if(mtyp  mm  INN) 

{ 

for(i»l;l<«mlen;i-i+l) 

inpmsg(i)  ■  mbuff(i);  #  copy  text 
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for(j“ia’en+l;  j<MSCL;  j“j+l) 

inpmsg(j)  »  '  ' ;  ft  blank  into  rest 

> 

it  store  warning  message 

else 

{ 

for  (i*l  ;i<**mlen;  i*i+l ) 

{ 

msgw(rasgwpw)  -  iabuff(i);  It  copy  a  word 
It  increment  write  pointer 
if (msgwpw  >■  MSCWL)  msgwpw  -  1 
else  msgwpw  -  msgwpw  +  1; 

> 

It  write  end-of -message  word,  increment  pointer 
msgw (msgwpw)  ■  ENDOFM; 
if  (msgwpw  >«  MSGUL)  msgwpw  »  1 
else  msgwpw  *  msgwpw  +  1; 

> 

return; 

end 


$********  ****************************************  *********  ************ 

if 

It  0.4  A  S  C  I  (i  T 

It 

if  ********************************************************************* 

it 

It  Initial  release  —  hn/14  novenber  79 
It  HAKE: 

It  ascint  (pi  ,p2,p3) 

It  FUNCTION: 

it  convert  an  ASCII  coded  integer  into  an  integer 

#  ALGORITHM: 

It  p3»(pl-40)*30  +  (p2-40) 

It 

If  It  It  It  it  It  It  It  It  It  if  it  If  It  It  it  ft  It  it  it  It  It  it  it  it  It  It  it  It  it  It  It  It  It  It  It  it  it  it  ItitiUtitlt  (tint  itltll  ititli  It  Itltltlt  lilt  it  it  It  It  ft  it  it  it 

subroutine  ascint(pl,p2,p3) ; 
integer*2  pl,p2,p3; 

p3«(pl-40)*30  +  p2-40 ; 

return; 

end 
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y*************************************************** ****************** 
#  * 

p  1.  CONTROL  I/O  MANACER 

if  * 

(J!** **********  ***********************  ********************************** 

It 

P  inicial  release  —  hn/24  aug  79 

#  NAME: 

#  bgciom(if lag) 

#  FUNCTION: 

#  process  an  operator  Input  request 

#  CALLING  PROGRAMS: 


It  -  any  BG  Task 

#  -  EXECUTIVE 
it  INPUT  PARAMETER: 

#  If  lag  —  0:  EXECUTIVE  expects  id  of  next  task  [NOMEUU] 

it  1:  A  BG  Task  requests  a  menu  to  be  displayed 

it  (Menu  record  nunber  in  itrrenu)  [MENU] 

it  INFORMAL  INPUT: 

P  itmenu  —  record  nunber  of  any  task  menu  to  be 

#  displayed 

#  INFORMAL  OUTPUT: 

P  intext (TEXTL)  —  one  line  of  text  or 

P  intxtp  —  pointer  for  text  buffer 

#  innurab  —  one  integer  digit  or 

P  inchar  —  one  ASCII  character 

«  ALGORITHM: 

it  bgcion(if  lag) : 

P  clear  input  storage  locations 

P  if  call  fron  a  task 

P  schedule  the  MENU  MGR  to  display  menu  immediately 

P  loop  until  input  ready 

P  return  input  to  caller 

pPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPitPPPPlUtPPPitPPPPPPPitttP 


subroutine  bgcion(if lag) 
external  bgmenn 


#  Operator  input  storage  declarations 
common  /blk2 /intext (TEXTL) .innumb, inchar,  intxtp; 

#  indone,  flag  input  done 
common  /blkI3/intt (INTTL) ,  inttp,  indone; 

integer*2  area(4);  P  area  for  itimer  call 

P  Preset  input  storage  locations 

innumb  ”  -I ; 
inchar  * 
intext (I )«'##'; 
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for  (i-2;i<-TEXTL;i-i+l) 
intext (i)  •  '; 

It  preset  pointer 
intxtp  ■  1; 


It  Schedule  MENU  MGR  immediately  after  1  clock  tick 
It  if  task  menu  is  to  be  displayed 
if (if lag  —  MENU) 

call  itimer(0,0,0, 1 ,area,DTMEN,bgmenm) ; 


it  Loop  until  an  input  is  done 
It  preset  flag 
indone  -  NODONE; 
while(indone  mm  NODONE); 
return; 
end; 

A*  ******  sir*  ******************  ************  *********  **********  ******* 
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j](*******  ******************************************  ******************** 

It  * 

It  2.  INPUT  MANAGER 


It  * 

^ ********* ********************************************** ************** 

It 

It  initial  release  —  hn/24  aug  79 
It  NAME: 


It  bginpm(inp) 

It  FUNCTION: 

#  Processing  of  operator  inputs  from  touch  panel Aeyboard 
t  CALLING  PROGRAM: 

#  EXECUTIVE  —  the  very  first  time  (requested  by  RT-11) 

It  RT-11  —  bginpm  is  scheduled  by  an  input  interrupt  driver 

It  INPUT  PARAMETER: 


It  inp  —  0  (NOACTN) :  Dummy  call  fron  EXECUTIVE 

It  TTINP:  Input  from  TT 

It  KEYINP:  Input  from  keyboard 

It  INFORMAL  INPUT: 


inopt  —  contains  input  options  and  action  codes 
intt  —  input  buffer 
INFORMAL  OUTPUT: 

intext(TEXTL)  —  one  line  of  text  or 
innumb  — -  one  integer  number  or 

inchar  —  one  ASCII  character 

inflag  —  ACCEPT  -  accept  input 

NOACPT  -  do  not  accept  input 


It  NOTES: 


It 

It 

It 

It 


This  routine  is  a  completion  routine  and  will  not  be 
interrupted  by  any  other  BG  program. 

Same  applies  to  all  routines  called  from  bginpm. 
ALGORITHM: 


It  re-schedule  its  call  (after  .1  seconds) 

It  convert  and  check  input 

It  if  input  invalid 

It  schedule  MESSAGE  MGR  for  'Illegal  Input'  and  return 

It  else 

it  schedule  MSG  MGR  to  erase  any  input  related  message 

It  provide  feedback  to  operator  (reverse  button) 

It  call  LOG  MGR  to  log  command 

It  if  a  new  menu  is  to  be  displayed 

It  schedule  MENU  MGR  to  display  new  menu 

It  else 

#  schedule  MENU  MGR  to  erase  current  menu  in  1  second 

It  if  input  for  task 

It  save  input  for  CONTROL  I/O  MGR 

It  else 

It  call  the  CONTROL  COMMAND  MGR 

It  return 

It 

1tlt1tltltltltltltltltltlfllltlt<titltltit1t1t1t1t4ltitlt<t1ilt1tltiiltltiHHHflt1HtltiHtlHHH}tt1HHKHHHH>itit{HtltlHtiHHt 


subroutine  bginpm(inp) 


external  bgmsgm; 
external  bgmenm; 
external  bginpm; 


If  Menu  Table  declaration,  number  of  input  options 
common  /blkl/mentbl(TBLMAX) ,  nuraopt; 

#  Operator  input  storage  declarations 
common  /blk2/lntext(TEXTL) ,innunb, inchar, intxtp; 

#  Storage  for  menu-id's  to  be  erased  or 

If  to  be  displayed,  initiated  by  the  controller 
common  /blk3/iecmen, icmenu; 

If  Storage  for  menu-id's  to  be  erased  or 

#  to  be  displayed,  initiated  by  a  task 
common  /blk4/ietmen,itraenu; 

#  Storage  for  operator  input  related  messages 

#  and  warning  messages  from  tasks 

If  Menu  stack,  stack  pointer,  number  of  saved  nenu  stacks 
common  /blk7/menstk(MENSTX) ,  menstp,  menstn; 


If  Menu  record  number  of  current  menu's  predecessor. 

It  menu  record  number  of  current  or  saved  task  menu  , 
If  name  of  active  BG  Task  (if  any), 

If  and  current  menu's  type 
common  /blk9/ipredm, icurtra, iactsk(TNL) ,  mentyp; 


If  KILL  flag  (Is  Kill  current  BG  Task) 

It  INPUT  flag  (0:  accept  no  input;  I:  accept  input) 
common  /blklO/killf 1,  inflag; 

If  input  buffer,  pointer,  input-done  flag 
common  /blkl3/intt(INTTL) ,  inttp,  indone; 

common  /ttinbf /endchl ,endch2, flag, count , char; 

logical*l  char(80); 

integer*2  endchl ,endch2, flag, count; 


integer*2  inx,iny 

If  Storage  for  keyboard  entry 
integer*2  inkey 

integer*2  areal(4);  If  area  for  itiraer  to 

#  schedule  the  MENU  MGR 
lnteger*2  area2(4);  9  area  for  itlmer  to 

If  schedule  the  MESSAGE  MGR 


96 


integer*2  area3(4);  If  area  for  itimer  Co 

#  schedule  itself 

If  Array  containing  all  input  options 
lnteger*2  inopt(OPTL, INMAX) ; 
equivalence  (mentbl(l),  inopt (1,1)); 

#  Do  not  process  first  dummy  call  from  EXECUTIVE 
if(lnp  ■■  NOACTN)  return; 

9  Re-schedule  itself 

call  ltlmer(0,0,0,6,area3,ACTION,bginpa) ; 

#  return  if  no  input  done 
if(count»*0)  return; 

9  reset  buffer  pointer 

count “0; 

#  Do  not  accept  any  input  if  inflag  set 
if (inflag  ■■  NOACPT)  return; 


inx  -  char(2); 
iny  -  char(3); 

J  “  l; 

invf lg*0;  #  flag  set  if  valid  coordinates  found 

whi le ( j  <-numop  t ) 

{ 

i-j ;  9  save  index 

if (inx<«inopt(RX, j )  &  inx>»inopt(LX, j ) 

&  iny<«inopt(LY, j )  &  iny>«inopt(UY, j ) ) 

{  invflg-1; 
break;  ) 

J-J+1; 

} 

if  (invf  lg«"0)  If  if  invalid  input,  schedule  MSG  MGR 

( 

call  erriasgdNM,  13, 'INVALID  INPUT'); 
call  itlmer(0,0,0,l,area2,DINPUT,bgmsgra) ; 
return; 

> 


call  bglogm(l);  #  log  command 
call  feedbk(l);  #  provide  feedback 

9  interpret  input  action  code 
icode  ■  inopt (CODE,!) ; 

if(icode  >■  ACODPI  &  icode<-ACODCN)  If  processed  by  bgctadm 

call  bgcmdn(l);  I  pass  input 

return; 

if (icode  ■■  ACODEM)  9  display  new  menu 

( 

icmenu  •  inopt (ANNEX, i) ; 

call  itimer(0, 0,0,1, areal, mentyp,bgmenm) ;  9  schedule  MENU  MGR 
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> 

else  #  erase  currenc  display  in  1  second 

{ 

if (mentyp  "  TASK)  #  currenc  Cask  menu 

{ 

iecmen  ■  icurem;  if  cask  menu  id 
call  icimer (0,0, 1 , 0, areal, ETMEN.bgmenra); 

} 

else  if(mensCp>0) 

{ 

iecmen  ■  mensek(menstp) ; 

t  Mark  menu  on  Cop  of  scack  Co  be  erased 
mens ck (mens Cp)  ■  -mens ck (mens tp ) ; 

call  icimer(Q, 0,1,0, areal, ECMEN,bgmenn);  it  schedule  MENU  MGR 

> 

} 

if(icode  ■■  ACODET)  #  if  CexC  InpuC 

{ 

inCexC (inCxCp)  -  inopC (ANNEX, 1) ; 
inCxCp  ■  inCxCp+1; 

#  if  ( H  H I  I  c/r  If  or  so) 
indone  -  DONE; 
recum; 

} 

if(icode  ■■  ACODEN)  it  if  inceger 

{ 

innumb  »  inopC (ANNEX, i) ; 
indone  -  DONE; 
recurn; 

} 

if (i code  *•  ACODEC)  it  if  characcer 
{ 

inchar  *  inopC(ANNEX.i) ; 
indone  *  DONE; 
recurn; 

} 

end 


#  * 

it  2.1FEEDBK 

#  * 

0 ********************************************************************* 
# 

S  Inicial  release  —  hn/4  SepC  79 
If  NAME: 
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’mwmm 


0  feedbk  (index) 

0  FUNCTION: 

0  Provide  feedback  Co  an  operator's  input 

0  CALLING  PROGRAM: 

#  bglnpm 

t  INPUT  PARAMETER: 

0  index  —  index  for  input  in  array  inopt 

0  INFORMAL  INPUT: 

#  inopt  — ■  array  containing  input  information 
0  INFORMAL  OUTPUT: 

0  inflag  —  NOACPT  -  Do  not  accept  any  input 

0  ALGORITHM: 

0  Provide  accustic  feedback 

0  Set  inflag  to  NOACPT 

0  If (STATUS | SELECT | HELP | CONTROL | ACKNOWLEDGE) 

0  return; 

0  else 

#  reverse  button 

0  schedule  endfbk  in  .5  seconds  to  reverse  button  back 

# 

0000000000000000000000000000000000000000000000000000000000000000000000 
subroutine  feedbk(index) ; 
external  endfbk; 


0  Menu  Table  declaration,  number  of  input  options 
common  /blkl/mentbl(TBLMAX) ,  nunopt; 


0  KILL  flag  (1:  Kill  current  BG  Task) 

0  INPUT  flag  (0:  accept  no  input;  1:  accept  input) 
common  /blklO/killf 1,  inflag; 

0  Array  containing  input  information 
integer*2  inopt(0PTL, INMAX) ; 
equivalence  (mentbl(l),  inopt(l,l)); 

0  array  for  itimer  call 
integer*2  area(A); 

0  get  action  code  of  input 
icode  "  inopt (CODE, index) ; 

f-H-H-H-  provide  accustic  feedback 

0  Do  not  accept  input  during  feedback  period 
inflag  -  NOACPT; 

#  If  Status, Select, Help, Control, Acknowledge:  return 

0  else  reverse  button,  schedule  end  of  feedback 
if (icode  <  ACODAC) 

( 
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call  enhanc (index, REV) ; 
call  it imer (0,0, 0,30, area, index, endfbk) 
} 

return; 

end 


****************************************************** *************** 

#  1  * 
p  3.  CONTROL  COMMAND  MANAGER 


a  * 

/t** *********************************************************** ******** 

# 

#  Initial  release  —  hn/24  aug  79 

#  NAME: 

#  bgcmdm(inx) 

#  FUNCTION: 

P  Process  operator  Inputs  from  permanent  displayed 

#  control  'buttons'  and  from  menus  initiated  by 

#  the  BG  Controller. 

#  CALLING  PROGRAM: 

#  Input  Manager  (bginpm) 

P  INPUT  PARAMETER: 

P  lnx  -  index  in  inopt,  specifies  kind  of  ipput 

P  INFORMAL  INPUT: 


P  mentbl  —  menu  table  with  all  input  options 

P  mentyp  --  type  of  current  menu 

#  INFORMAL  OUTPUT: 

#  killfl  —  1:  current  task  is  to  be  killed 

#  ALGORITHM: 

P  If  input  from  permanent  button 

P  {If  PRINT  CRT I / 2 :  Initiate  hardcopy; 

P  If  ACKNOWLEDGE  :  Schedule  MSG  MGR  to  erase  warning  rasg 

P  If  STATUS, HELP, 

P  SELECT, CONTROL: 

#  {If  control  function  is  active,  erase  menu; 

P  If  function  not  active,  display  its  first  menu; 

P  > 

#  > 

P  If  input  from  a  controller  menu  button 

#  {If  SELECT-menu  (start  a  new  task) 

#  {  Erase  SELECT  menu; 

#  Set  the  KILL  flag 

P  Return  new  task-id; 

P  > 

#  If  CONTROL -menu: 

#  Call  the  PB  MGR  to  process  the  input; 

P  > 

PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP 


* 


subroutine  bgcndm(inx); 

external  bgmsgm; 
external  bgmenn; 


t  Menu  Table  declaration,  number  of  input  options 
common  /blk I /mentbl (TBLMAX ) ,  nunopt; 

#  Operator  Input  storage  declarations 
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common  /blk2/intext (TEXTL) .innumb, inchar, intxtp; 


#  Storage  for  menu-id's  to  be  erased  or 

#  to  be  displayed,  initiated  by  the  controller 
common  /blk3/iecmen,lcmenu; 

#  Storage  for  menu-id's  to  be  erased  or 

#  to  be  displayed,  initiated  by  a  task 
common  /blk4/ietraen, itmenu; 


#  Menu  stack,  stack  pointer,  number  of  saved  menu  stacks 
common  /blk7/menstk(MENSTX) ,  menstp,  nenstn; 


#  Menu  record  number  of  current  menu's  predecessor, 

#  menu  record  number  of  current  or  saved  task  menu  , 

#  name  of  active  EG  Task  (if  any), 

#  and  current  menu's  type 

common  /blk9/ipredm,icurtm, iactsk(TNL) ,  mentyp; 


#  KILL  flag  (1:  Kill  current  BG  Task) 

#  INPUT  flag  (0:  accept  no  input;  1:  accept  input) 
common  /blklO/killf 1,  inflag; 

#  record  numbers  of  initial  menus  known 

#  to  the  BG  Controller 

#  l)Status,  2)Select ,  3)Help,  4)Control  5)Start 
common  /blkll/instat,  insel,  inhelp,  incont,  instrt; 

if  arrays  for  itimer  calls 
integer*2  areal (4); 
integer*2  area2(4); 

#  array  for  input  option 
integer^  inopt(OPTL,INIIAX) ; 
equivalence  (mentbl(l),  lnopt(l,l)); 


#  save  action  code 
lcode  -  inopt(C0DE,inx) ; 

lf(inx  <■  CONMAX)  9  permanent  control  buttons 

(if (icode  —  AC0DP1)  #  hardcopy  CRT1 

( 

f H  Hlllll  initiate  hardcopy 
return; ) 

else  if (icode  mm  AC0DP2)  9  hardcopy  CRT2 

( 

#♦  1 4 HHt  initiate  hardcopy 
return;) 


•1 


else  lfdcode  —  ACODAC)  #  ACKNOWLEDGE 

{ 

$  Erase  warning  message 

call  i timer (0,0,0, 1, areal, EWARN,bgmsgm) ; 

return; > 

else  It  STATUS, SELECT, HELP, CONTROL:  either 

#  erase  current  menu  or  display  initial  one 

{ 

kode  -  icode-8;  it  kode  and  mentyp  same  meaning 
if (mentyp  ■*  kode)  it  erase  menu,  switch  off  function 

{ 

iecmen  ■  mens tk (mens tp ) ;  #  copy  current  menu-id 

#  Mark  menu  on  top  of  stack 
mens tk( mens tp)  ■  -menstk(menstp) ; 
call  itiraer (0,0,0, 1 ,area2,ECMEN,bgmenm) ; 
return; 

} 

else  It  display  initial  menu,  switch  on 

( 

if(icode  ACODST)  it  status 
lcraenu  ■  ins tat 

else  lfdcode  »■  ACODSE)  select 
icmenu  ■  ins el 

else  lfdcode  ■»  ACODHP)  it  help 

icmenu  *  inhelp 

else  lfdcode  ■■  ACODCN)  It  control 

icmenu  ■  incont; 

call  itimer(0,0,0,l  ,area2,kode,bgmenr.) ; 
return; 

> 

} 

> 

it  input  from  a  controller  menu 
else  if(icode  *■  AC0DTK)  •/  new  task 

( 

innunb  ■  inopt(ANNEX,inx) ;  #  task-id  for  EXECUTIVE 

killfl  ■  KILL;  it  kill  any  running  task 

ietmen  ■  icurtm; 

call  ltimer(0,0,0, 1 , areal  ,ETMEN,bgmenn) ;  It  erase  task  menu 

It  erase  current  select  menu 
iecmen  -  menstk(menstp) ; 
menstk(menstp)  ■  -menstk(menstp ) ; 
call  itimer(0,0,0, I ,area2,ECMEN,bgnenn) ; 
return; 

> 

else  4  input  for  PB  MGR 

( 

call  bgpbm(inx); 
return; 

) 


return; 

end; 

********************************************************************** 


jt** ******************************************************  ******  irk*  irk  irk 

if  * 

if  4.  MENU  MANAGER 

a  * 

#***  Itltit  It  it  It  it*** -kit  ft  It*  *************  it  ************  ***********  It  it*  *********** 


Initial  release  —  hn/6  Sept  79 
If  NAME: 

if  bgmenra(itype) 

if  CALLING  PROGRAM: 

#  EXECUTIVE  —  the  very  first  time  (requested  by  RT-11) 

#  RT-11  —  bgmenn  is  to  be  scheduled  using  itimer  call 

if  FUNCTION: 

#  Update  the  enhancements  of  some  permanent  'buttons' 

if  Process  other  program's  request  to  display/erase  a  menu 

if  Read  a  menu  from  the  menu  file  and  update  the  TT  display 

if  Do  not  allow  any  operator  input  while  changing  the  display 

#  INPUT  PARAMETER: 

if  itype  —  specifies  the  kind  of  action  requested  by  the 

if  scheduling  program 

f  NOACTN  -  dummy  call  from  EXECUTIVE 

#  DIMEN  -  display  initial  start  menu 

#  DSMEN  -  display  status  menu 

if  DSEMN  -  display  select  menu 

if  DHMEN  -  display  help  menu 

if  DC11EH  -  display  control  menu 

if  DTMEN  -  display  BG  Task  menu 

if  ECMEN  -  erase  a  control  menu 

if  ETMEN  -  erase  a  task  menu 


If  INFORMAL  INPUT: 
if  menstk  -  menu  stack 

#  menstp  -  menu  stack  pointer 

#  icmenu  -  controller  menu  to  be  displayed 

if  iecmen  -  controller  menu  to  be  erased 

If  itmenu  -  task  menu  to  be  displayed 

if  ietraen  -  task  menu  to  be  erased 

#  mentyp  -  type  of  current  menu 

#  mentbl  -  menu  table  for  storage  of  input 

#  and  image  information 

#  INFORMAL  OUTPUT: 

#  inflag  --  ACCEPT:  accept  operator  input 

#  NOTE: 

#  This  routine  is  a  completion  routine  and  will  not  be 

#  Interrupted  by  any  other  BG  program 

#  ALGORITHM: 

#  if  NOACTN  return; 

#  set  inflag  to  NOACPT 

#  if  DIMEN 

if  Display  any  next  menu 

if  if  DSMEN, DSEMN, DHMEN, DCMEN 

#  if  displayed  menu  is  of  the  same  type 

#  replace  the  menu  by  the  new  one 

t  else  save  the  old  one  and  display  the  new  one 

#  if  DTMEN 
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i 9 
# 

# 

# 


Save  new  Cask  menu  Id 
if  a  cask  menu  is  being  displayed 
replace  ic  by  Che  new  one 
if  ECMEN 


it  if  die  menu  is  being  displayed 

if  display  Che  nexc  saved  menu 

if  if  ETMEM 

#  if  Che  cask  menu  is  being  displayed 

it  display  any  waiCing  menu 

if  see  inflag  Co  ACCEPT 

#  recurn 
it 

##########f#ff###f #################################################### 


subroucine  bgmenn(icype) ; 


if  Menu  Table  declaration,  number  of  inpuC  opcions 
common  /blkl/menCbl(TBLMAX) ,  nunopC; 


if  Scorage  for  menu-id's  to  be  erased  or 
#  co  be  displayed,  initiated  by  the  controller 
common  /blk3/iecmen, icraenu; 

if  Storage  for  menu-id's  to  be  erased  or 
if  to  be  displayed,  initiated  by  a  task 
common  /blk4/ietmen, itraenu; 


#  Menu  stack,  stack  pointer,  number  of  saved  menu  stacks 
common  /blk7/menstk(MENSTX) ,  raenstp,  menstn; 

if  Menu  record  number  of  current  menu's  predecessor. 

If  menu  record  number  of  current  or  saved  task  menu  , 

If  name  of  active  BG  Task  (if  any), 

If  and  current  menu's  type 
common  /blk9/ipredn,icurtra, iactsk(TNL) ,  mentyp; 


#  KILL  flag  (1:  Kill  current  BG  Task) 

#  INPUT  flag  (0:  accept  no  input;  1:  accept  input) 
common  /blklO/killf 1,  inflag; 

common  /blkll /ins tat, insel, inhelp, incont, instrt; 

#  Array  containing  all  input  options 
integer*2  inop t(OPTL, INMAX ) ; 
equivalence  (raentbl(l),  inopt(l,l)); 

It  Ho  action  on  dummy  call  from  EXECUTIVE 
if (i type  »»  IIOACTN)  return; 
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if  Do  not  allow  any  operator  input 
inf lag  -  KOACPT 

if  Display  initial  start  menu 
if(itype  DIKEN) 

{icrnenu  ■  0;  if  reset  store 

call  mdispl;  it  display  any  waiting  menu  or  initial  one 

> 

#  Display  Status, Select, Help, Control  menu 
else  if(itype>-DSMEN  &  itype<«DCMEN) 

{ 

if(itype  nentyp)  4  menu  of  same  type  on  TT 

{ 

call  mepop;  4  erase  current  menu 

if(mepush(l)  “  OK)  4  push  new  menu 

call  mdispl;  4  display  new  menu 

> 

else  ! t  menu  of  different  type  on  TT 

{ 

If (mepushd )  ■■  OK)  4  Menu  pushed  on  top  of  menu-stack 

call  mdispl;  4  Display  the  new  menu 

> 

icrnenu  “0;  f  reset  store 

> 


0  Display  task  menu 
else  if (itype  --  DTMEN) 

{ 

if(icurtm  !■  itmenu)  4  if  different  task  menu 

{ 

icurtm  -  itmenu;  4  save  menu  id 

if  (mentyp»TASK  |  mentyp“START) 4  task  menu  is  being  displayed 

4  or  initial  start  menu 
call  mdispl;  4  display  new  task  menu 

> 


itmenu  ■  0; 


4  reset  store 


> 


4  Erase  controller  menu 
else  i  dtype  —  ECMEN ) 

{ 

#  get  absolute  menu  id  on  top  of  menu  stack 
1  -  menstk(menstp) ; 
if (i<0)  i— i; 

lfdecmen  ■■  i)  4  menu  is  being  displayed 

{ 

call  mepop;  4  pop  menu  on  top  of  stack 

call  mdispl;  4  display  next  menu 

} 


iecmen  “0;  4  reset  store 

> 


4  Erase  task  menu 
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else  if (itype  —  ETMEN ) 

{ 

if(icurtm  "  ietmen)  It  menu  to  be  erased  is  saved  or 

9  being  displayed 

{ 

icurtin  *0;  9  erase  menu  store 

if(mentyp  ■*  TASK)  #  old  task  menu  being  displayed 
call  mdispl;  If  display  new  task  menu 

} 

ietmen  >0;  9  reset  store 

> 

9  Allow  operator  input 
inflag  -  ACCEPT; 

return; 

end 


********************************************************************** 
If  * 

If  4.1  MEPOSH 

If  * 

#** ******************************************************************* 


If 


9  Initial  release  —  hn/6  Sept  79 
9  NAME: 

9  mepush(i) 

9  CALLING  PROGRAM: 

#  bgmenn 

If  FUNCTION: 

if  Push  a  new  controller  menu  id  on  top  of  the  menu  stack, 

9  save  any  full  stacks  on  disc 

It  INPUT  PARAMETER: 

If  i  —  dummy  parameter  (needed  for  function  call) 

9  INFORMAL  INPUT: 

menstk  -  menu  stack 
menstp  -  menu  stack  pointer 
menstn  -  number  of  saved  stacks  on  disc 
lcroenu  -  menu-id  to  push 
FUNCTION  OUTPUT: 

OK  -  new  menu-id  on  top  of  menu  stack 
NOTOK  -  a  full  stack  could  not  be  written  onto  disc 
new  menu-id  is  not  on  top  of  menu 
INFORMAL  OUTPUT: 

menstp  -  menu  stack  pointer 
ALGORITHM: 

if  menu-stack  full 

increment  stack  counter 
write  stack  onto  disc 
if  write  not  possible 

decrement  stack  counter 


# 

# 

# 

# 

# 

# 

If 

9 

9 

9 

9 

9 

9 

9 

9 

9 


it  initiate  display  of  a  warning  message 

0  return  NOTOK 

#  else  reset  stack  pointer 

it  else  Increment  stack  pointer 

it  store  menu-id  on  stack 

it  return  OK 

it 

<t#ititltititit1tititititititititltiHtiHHHHtitititiHHHtlHHtlH}iHtitSitittiHtiHHHHHHH}i})t;fihH;iHtttitiHtiti}!t 


function  Depush(l); 
external  bgmsgm 


#  Storage  for  Gienu-id's  to  be  erased  or 
it  to  be  displayed,  initiated  by  the  controller 
common  /blk3/iecmen, icmenu; 


#  Menu  stack,  stack  pointer,  number  of  saved  menu  stacks 
common  /blk7/menstk(MENSTX) ,  menstp,  menstn; 

#  Array  for  itimer  call 
integer*2  area(4); 

integer *2  lumstk; 
data  lumstk /LUMSTK/; 


if  (menstp>*MEKSTX)  it  menu  stack  full 

{ 

menstn  »  iaenstn+1;  it  incr  counter  for  saved  stacks 

#  write  stack  onto  disc,  if  error  goto  9999 

Z  write(lunstk'menstn,ERR“9999)  menstk 

menstp  “  1 ;  It  reset  stack  pointer 

> 

else  it  no  stack  overflow 

menstp  -  menstp+1;  it  incr  stack  pointer 

#  Store  menu-id  on  stack 
menstk(menstp)  ■  icmenu; 
mepush  ■  OK; 

return; 

#  If  write  could  not  be  done  properly 

9999  menstn  ■  menstn-l;  #  reset  counter 

#  Initiate  display  of  warning  message 

call  errmsg(WM,27, 'MEMU  STACK  WRITE  IMPOSSIBLE' ) ; 
call  1 t imer (0,0,0, l, area, DWARN, bgmsgm) ; 
mepush  ■  NOTOK; 
return; 


end 


$********************************************************************* 

it  * 

it  4.2  H  E  P  0  P 

it  * 

j!******** ***************************************************** ******** 
# 

it  Initial  release  —  hn/6  Sept  79 

#  NAME: 

it  mepop 

#  FUNCTION: 

iff  Pop  the  menu  on  top  of  the  stack, 

it  read  any  menu  stacks  saved  on  disc 

#  INFORMAL  INPUT: 

#  menstk  -  menu  stack 

It  menstp  -  menu  stack  pointer 

it  menstn  -  number  of  saved  stacks  on  disc 

it  INFORMAL  OUTPUT: 
it  menstp  -  menu  stack  pointer 

#  ALGORITHM: 

it  decrement  stack  pointer 

it  while(stack  in  memory  or  on  disc) 

it  while  (stack  pointer  >  0) 

it  if (menu-id  positiv)  return 

it  else  decrement  stack  pointer 

it  if  (stack  saved  on  disc) 

it  read  stack 

it  if  (improper  read) 

it  initiate  warning  message 

it  return 

it  decrement  stack  counter 

if  reset  stack  pointer  to  top  of  stack 

it  return 

it 

it  It  it  it  it  it  it  It  It  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  It  <tif  it  #  it  it#  it  it  Mint  it  it  ititit  it  Mint  it  I)  Mint  it  it  i1  It  it# 


subroutine  mepop; 
external  bgmsgm; 


it  Menu  stack,  stack  pointer,  number  of  saved  menu  stacks 
common  /blk7/menstk(MENSTX) ,  menstp,  menstn; 

common  /blki 7/lumsg, lunstk, lumenu, luttd, lutsys , lulog; 

#  array  for  itimer  call 
integer*2  a rea(4); 
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It  decrement  stack  pointer 
if(menstp>0)  menstp  ■  menstp-1; 

It  while  there  is  a  stack  in  memory  or  on  disc 
while(menstp>0  |  nenstn>0) 

{ 

#  while  a  stack  in  memory 
while (mens tp>0) 

{ 

if (menstk(menstp)>0)  return  It  next  menu  found 

else  menstp  ■  menstp-1; 

} 

It  if  stack  saved  on  disc 
if (menstn>0) 

{ 

Z  read(lumstk'nenstn,ERR“9S99)  menstk 

menstn  -  menstn-1;  It  update  stack  counter 

menstp  «  MENSTX;  ft  update  stack  pointer 

} 

> 

return;  ft  return,  stack  is  empty 

9  If  read  could  not  be  done  properly 

It  Initiate  display  of  warning  message 
9999  call  errmsg(VM,2b, 'MENU  STACK  READ  IMPOSSIBLE'); 

call  It Imer (0,0,0, 1, area, DWARN,bgmsgm); 
return; 
end 


********************************************************************** 

If  * 


It  A. 3  M  D  I  S  P  L 

It  * 

^***** **************************************************************** 

It 

9  Initial  release  —  hn/7  Sept  79 

#  NAME: 

t  mdispl 

ft  CALLING  PROGRAM: 

#  bgmenm 

#  FUNCTION: 

#  Cet  the  next  menu  to  be  displayed 

#  a)  a  controller  menu  on  stack 

#  b)  a  task  menu 

#  c)  initial  start  menu 

It  Read  and  display  the  menu  image 

ft  Read  and  store  the  input  option  information 

#  Update  the  enhancement  of  certain  permanent  buttons 

t  Generate  error  messages  if  read/write  Impossible 

#  INFORMAL  INPUT: 


111 


L.  - 


it  menstk  -  controller  menu  stack 

it  icurtn  -  task  menu 

9  instrt  -  Initial  start  menu 

it  menstp  -  menu  stack  pointer 

tf  INFORMAL  OUTPUT: 

#  inopt  -  array  containing  input  option  information 
it  ALC0RITHI1: 

it  If  controller  menu  on  stack 

#  get  menu-id 

it  else  if  task  menu 

#  get  menu-id 

it  else  get  initial  start  menu-id 

it 

it  while(image  records  on  disc) 

It  read  a  record 

ft  if  read  error,  display  message,  return 

It  display  image  of  the  record 

it  if  write  error,  display  message,  return 

it  read  all  input  option  records 

it  if  read  eror,  display  message,  return 

#  update  enhancement  of  certain  permanent  buttons 

it  return 

It 

itt!ititit1t#itttitilllitit1titit#<tttifitititititlttt#1titit1ttttHtniHtit1HHHHtltititiHliHllHHHHt#itttitiHtiHH‘tHH! 

subroutine  radispl; 
external  bgmsgm; 

it  Menu  stack,  stack  pointer,  number  of  saved  menu  stacks 
common  /blk7/menstk(MEHSTX) ,  menstp,  menstn; 

it  Menu  record  number  of  current  menu's  predecessor, 
it  menu  record  number  of  current  or  saved  task  menu  , 
it  name  of  active  BG  Task  (if  any), 
it  and  current  menu's  type 
common  /blk9/ipredm, icurtm, iactsk(TNL) ,  mentyp; 


common  /blkl 1 /ins tat , insel, inhelp , incont , instrt ; 

f  number  of  warning  messages  to  be  displayed 
#  index  to  warning  message  stack  half  to  write  into 
9  first  message  stack  record  number  on  disc  file 
it  last  message  stack  record  number  on  disc  file 
common  /blk!2/msgcnt ,  mgstsw,  mfrec,  mlrec; 


tt  array  for  itlmer  call 
integer*2  area(4); 


#  get  menu-id  to  be  displayed 
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If  controller-menu 


if (mens tp  >  G) 

irec  ■  mens tk (mens tp) 
else  if(icurtm  !■  0)  If  Cask  menu 
irec  ■  icurtra 

else  irec  «  insert;  #  Initial  start  menu 

If  reset  offset  for  disc  records 

i  -  0; 

#  preset  flag 
idone  -  NODONE; 

If  while  any  image  records  on  disc,  read  and  display  them 
while (idone  !«  DONE  &  i<-3) 

{ 

If  read  one  image  record 
call  rimage(irec+i, if  lag, idone) ; 

#  if  read  error,  display  message  and  return 
if (if lag  «  NOTOK) 

{ 

call  errinsg(WM,20,  'MENU  READ  IMPOSSIBLE')  ; 
call  itimer (0,0,0, I , area, DWARN.bgmsgn) ; 
return; 

> 

If  increment  record  offset 
i  -  i+1; 

It  display  one  image  record 
call  dimage (if lag) ; 

If  if  write  error,  display  message  and  return 
if (if lag  —  NOTOK) 

( 

call  errmsg(UM,23, 'MENU  DISPLAY  IMPOSSIBLE'); 
call  itimer (0,0, 0,1  ,area,DWAEN,bgnsgm) ; 
return; 

> 

) 


#  read  all  input  option  information 
call  rinopt(irec,iflag); 

#  if  read  error,  display  message  and  return 
if (if  lag  —  NOTOK) 

{ 

call  errmsg(UM,20, 'MENU  READ  IMPOSSIBLE'); 
call  itimer (0,0,0, 1 ,area,DNARN,bgmsgm) ; 
return; 

> 

9  Update  any  enhancements  of  control  buttons 
call  updenh; 
return; 
end 
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********************************************************************** 
#  * 

#  4.3.1  R  I  M  A  G  E 

* 

*********************************************************** ********** 

4 

4  Initial  release  —  hn/7  Sept  79 
it  NAME: 

It  rimage(menrec,  if lag, idone) 

It  CALLING  PROGRAM: 

4  mdispl 

ft  FUNCTION: 

It  read  a  specified  menu-record  into  rnentbl 

4  if  end-of-inage  ,  set  flag  idone 

it  INPUT  PARAMETER: 

It  menrec  -  record  number  to  read 


It  OUTPUT  PARAMETER: 

It  if  lag  -  MOTOR:  Read  error 

4  CK  :  read  ok 

4  idone  -  DONE  :  end-of-inage  recognized 

It  NODONE:  no  end-of -image 

#  INFORMAL  OUTPUT: 

It  rnentbl  -  menu  image  starting  at  mentbl(IMAGEX) 

ft  ALGORITHM: 

It  read  image  record 

#  if  read  ok 

it  if  last  linage  record 

4  set  flag  to  DONE 

4  return  flag  OK 

#  else  return  flag  NOTOK 
f 

4444444444444444444444444444444444444444444444444444444444444444444444 


subroutine  rimage(menrec, if  lag, idone) ; 


#  Menu  Table  declaration,  number  of  input  options 
common  /blkl /rnentbl (TBLKAX) ,  numopt; 

common  /blkl 7/lumsg, lumstk,lumenu,luttd,lutsys, lulog; 

#  array  for  temporary  image  storage 
logical*!  image (TBLKAX) ; 

equivalence  (rnentbl (IMAGEX) ,  image(l)); 


irec*menrec; 

#  read  image  record 

Z  read(lumenu#irec,ERR"9999)  (image(i) ,i«l ,540) 


4  if  last  record  read,  set  done  flag 
if (image(540)  “  ENDOFR)  #  last  word  in  record  -  code 

idone  ■  DONE; 
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$  reCurn  read  ok 
if lag  -  OK; 
return; 

it  return  NOTOK,  if  read  error 
9999  if lag  -  NOTOK; 
return; 
end 


£************* ********************************** A********************* 
#  * 

it  4.3.2  D  I  M  A  G  E 

#  * 

^****** ************************************************ *************** 

it 

it  Initial  release  —  hn/10  Sept  79 
£  NAME : 

it  dimage(if  lag) 

it  CALLING  PROCRAM: 

9  mdispl 

it  FUNCTION: 

it  Display  the  menu  image  stored  in  image 

It  OUTPUT  PARAMETER: 
it  iflag  -  OK:  No  write  error 

it  NOTOK:  Write  error 

it  INFORMAL  INPUT: 

9  image  -  image  of  menu  display 

it  image  starts  at  uientbl  (IMACEX) 

#  ALGORITHM: 

#  while  there  are  more  image  commands 

it  write  commands  to  display 

it  if  write  error,  return  NOTOK 

it  return  OK 

# 

it  it  tit  it  it  it  110  it  it  it  it  it  it  it  it  it  it  it  It  it  it  it  it  it  it  It  it  it  it  it  it  it  it  it  it  it  it  it  it  i>  it  it  it  it  It  It  MiHt  it  IMiHHt  it  Hit  it  Hit  it  MUtiHt 

subroutine  dimage(if lag) ; 

#  Menu  Table  declaration,  number  of  input  options 
common  /blkl /mentbl(TBLMAX) ,  numopt; 

common  /blkl 7/lumsg, lumstk, lumenu.luttd, lutsys , lulog; 

#  output  buffer  with  pointer 
logical*l  buff (62); 

integer*2  buffx; 

#  array  containing  the  menu  image 
logical*l  image (TBLNAX ) ; 

equivalence  (mentbl(IMAGEX) ,  image(l)); 

#  command  string  to  position  cursor  to  start 

#  of  input  related  message  field  after  the  new 
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#  image  been  transferred  to  the  TT  Display 
logicalM  cnd(lO); 

data  cnxl/07, 27, 38, 9  7, 50, 49, 114, 50, 49, 67/; 


I  preset  ending  index  used  in  loop 
indend  *0; 

t  send  always  '$'  at  beginning  of  command  string 

buff (l)-36;  buff (2)-36; 

#  do  forever,  check  if  more  commands  stored 

#  if  any  and  less  than  display  buffer  size, 

#  write  the  commands 
while(l>0) 

If  preset  begin  index  and  end  index  for  checks 
indbeg  *  indend+1; 
indend  -  indend+60; 

buffx-3;  tf  first  entry  for  command  string 

#  check  all  entries  in  image  between  indbeg  and  indend 
for ( index-indbeg ;  index<-indend;  index-index+1) 

{ 

buff (buff x) -image (index) ; 
buffx-buf fx+1; 

S  if  end-of-image  or  end-of-physical-record 

#  write  rest  of  image 

if (index>TBL’IAX  |  image(index)— ENDOFI) 

( 

buf fx-buf fx-1 ; 
buff (buffx)-36;  # 
nwords-buffx/2; 

ihp-iwritw(nwords ,buf f ,0,luttd) ; 

#  return  flag  write  OK 

H  position  cursor  after  image  commands  done 

ihp-iwritw(5,cmd,0,luttd); 

if  lag  -  OK; 

return; 

) 

> 


#  write  image 

ihp-iwritw(31,buf f ,0,luttd) ; 

> 


1000  f ormat(80al) ; 

#  write  error  if  here 
9999  if lag  -  NOTOK; 
return; 
end 
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j jl  ******************************************************* ************** 
#  * 

$  4.3.3  R  I  iO  P  T 

it  * 

********************************************************************** 

t t 

it  Initial  release  — hn/10  Sept  79 
>  NAME: 

#  rinopt(menrec,if lag) 

#  CALLING  PROGRAM: 

it  mdispl 

f  FUNCTION: 

it  read  all  input  option  information 

it  read  menu  parameter  and  save  them 

it  INPUT  PARAMETER: 

it  menrec  -  number  of  first  record  of  the  menu 

it  OUTPUT  PARAMETER: 

#  iflag  -  OK:  No  read  error 

it  NOTOK:  read  error 

#  INFORMAL  OUTPUT: 

it  mentbl  -  input  option  Information 

it  nunopt  -  number  of  input  options 

it  ipredm  -  record  number  of  predecessor  menu 

it  mentyp  -  type  of  this  menu 

it  ALGORITHM: 

It  set  initial  index  in  mentbl  for  read 

#  while  there  are  any  records  to  read 

it  read  record 

it  if  error,  return  NOTOK 

#  if  last  record,  break 

it  store  parameter 

it  return  OK 

it 

it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  It  it  it  it  it  it  it  it  it#  it  itil  it  it  if  it  it  tit  it  it  it  it  itiHW  Hit#  it  it  it  ititit  it  it  it, U  it 

subroutine  rinopt (menrec, iflag) ; 

#  Menu  Table  declaration,  number  of  input  options 
common  /blkl/mentbl(TBLMAX) ,  nunopt; 


t  Menu  record  number  of  current  menu's  predecessor, 

#  menu  record  number  of  current  or  saved  task  menu  , 

#  name  of  active  EG  Task  (if  any), 

#  and  current  menu's  type 

common  /blk9/ipredra,  icurtra, iactsk(TNL) ,  mentyp; 


#  record  numbers  of  initial  menus  known 

#  to  the  BG  Controller 


9  l)Status,  2 ) Select ,  3)Help,  4)Control  5)Start 
common  /blkll/instat,  insel,  inhelp,  incont,  instrt; 

common  /blkl 7/lumsg, lunstk, lumenu , lut td , lutsys , lulog ; 

it  array  to  store  input  option  information 
integer*2  inopt(OPTL,INKAX) ; 
equivalence  (mentbl(l ) , inopt (1 , 1) ) ; 

integer*2  pl,p2,p3; 


it  Compute  initial  read  index  in  mentbl 
if(menrec  mm  instrt)  it  if  initial  start  menu 

it  with  control  button  info 

index* 1 

else  index*OPTL*COK.yJM-l ;  #  first  entry  after  control  button 

it  first  record  number  after  last  one  for  input 
i  -  menrec+Il-lGREC40PTREC ; 

k*index-HlRL-l ;  #  last  index  for  read  into  mentbl 

irec*raenrec+IMCREC;  #  first  record  with  input  options 

X  read(lumenu'irec,ERR*9999)  (mentbl(ind) , ind-index,k) 

index**index+MKL ; 

k»MRL*2;  it  last  entry  in  mentbl 

irec-menrec+IMGREC+1 ;  9  next  record 

Z  read(lunenu'irec,ERR*9999)  (mentbl (ind) ,ind*index,k) 

9  all  information  is  read,  save  menu  parameters 
p3*inopt(l , 36) ; 

pl*p3/256;  p2*uod(p3,256) ;  call  ascint (pl,p2,p3) ; 
ipredm»p3;  it  menu  id  of  predecessor  menu 

p3*inopt(2, 36) ; 

pl-p3/256;  p2*mod(p3,256) ;  call  ascint(pl,p2,p3) ; 
nentyp*p3;  it  menu  type 

p3*inopt(3,36) ; 

pl*p3/256;  p2*nod(p3,256) ;  call  ascint (pi ,p2,p3) ; 
nunopt*p3;  9  number  of  input  options 

if (mentyp!*START)  9  not  initial  start  menu 

nunopt*nunopt+CONMAX;  9  add  permanent  buttons 

if  convert  all  ASCII  coded  integer  into  integer 
9  (coordinates , action  codes,  annex  if  necessary) 
if(menrec  *■  instrt)  it  start  menu 
istart*! 

else  istart-COtIMAX+1; 
iend-nunopt ; 

for(i*istart ;  i<*iend;  i*i+l)  it  for  all  inp  options 

{ 
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for(k“7;  k<*ll;  k“k+l)  If  for  all  coord  &  act  codes 

{ 

p3*inopt(k,i) ;  pl»p3/25b;  p2"mod(p3,256) ; 

call  ascint(pl,p2,p3); 

inopt(k,i)-p3; 

> 

if  (p3«AC0DEM  |  p3**»AC0DEN  | p3"«*AC0DTK)  If  convert  annex 

( 

p3»lnopt (ANNEX, i) ;  pl*p3/256;  p2-nod(p3,256) ; 
call  ascint(pl,p2,p3) ; 
inop t (ANNEX, i)«p 3; 

> 

> 


.  If  return  OK 
if lag  -  OK; 
return; 

#  if  here,  process  read  error 
9999  if lag  -  NOTOK; 
return; 
end 


$********************************************************************* 
If  * 

if  4.3.4  U  P  D  E  N  H 

#  * 

********** ****************************************************** ****** 

t 

If  Initial  release  —  hn/li  Sept  /9 
#  NAME: 

II  updenh 

If  CALLING  PROGRAM: 


If 

I 

# 

# 

# 

I 
# 

# 
if 
» 
if 
* 

It  ALGORITHM: 

If  if  there  is  an  enhancement 

#  if  old  nenu-typ  ■  new  menu-typ 

I  else  reverse  old  enhancement 


cdispl 
FUNCTION : 

Update  the  enhancement  of  certain  permanent 
control  buttons 
INFORMAL  INPUT: 

ipenh  —  specifies  any  permanent  button  being  reversed 
(  index  of  button  input  in  inopt) 
mentyp  —  typ  of  new  menu 
INFORMAL  OUTPUT: 

ipenh  —  0:  new  nenu  is  a  task  menu 

x:  specifies  the  permanent  button  that  is  reversed 
(index  in  inopt) 


return 
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it  if  no  new  enhancement  is  to  be  made  ,  return 

it  else  reverse  new  enhancement 

it  return 

It 

It  It  it  it  It  it  it  it  it  it  if  it  it  it  it  it  it  if  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  4  ititit  it  It  it  it  it  ititit  if#  itit  It  It  Hit  it  it  ttitit  ititititit 

subroutine  updenh 

It  Menu  Table  declaration,  number  of  input  options 
common  /blkl/mentbl(TBLMAX) ,  numopt; 

it  Menu  record  number  of  current  menu's  predecessor. 

It  c:cnu  record  number  of  current  or  saved  task  menu  , 
it  name  of  active  BG  Task  (if  any), 
it  and  current  menu's  type 
common  /blk9/ipredn, icurtm, iactsk(THL ) ,  mentyp; 


if  Index  of  permanent  button  (in  inopt) 
it  that  is  displayed  in  reverse  mode 
common  /fclk!4/ipenh; 


it  array  containing  input  option  information 
integer*2  inopt (OPTL , INHAX) ; 
equivalence  (mentbl(l),  inopt(I, l)); 

it  if  an  enhancement  exists,  check  if  it  has  to 
it  be  reversed  back 
if(ipenh  !-  0) 

{ 

it  menu  type  of  current  menu 
kode  *  inopt(C0DE,ipenh)-8; 

if  (mentyp  ■■  kode)  return  it  no  menu  typ  change 
else 

call  enhanc( ipenh, REVEND); 

> 


it  if  new  menu  is  task  or  initial  menu,  clear  ipenh 
it  else  enhance  new  button 
if  (mentyp  «*■  TASK  |  mentyp  START) 
ipenh  *  0 
else 


{ 

kode  *  mentyp+8; 
for(i-l;  i<-C0MMAX; 


{ 

j-i; 

if (inopt(CODE.i) 
> 

call  enhanc(j ,REV) ; 


it  type  converted  into  action  code 
i*i+I)  it  search  action  code  to 

it  determine  index  in  inopt 

It  save  index 
“  kode)  break; 

it  reverse  button 
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if  save  reversed  button  index 


ipenh  -  j; 

> 

return; 

end 
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******************** ******************************************** 

it 

tf  5.  PARAMETER  BLOCK  MANAGER 

it 

//***** ******* * *** ****** ** ************* * *** **** ** *** ** ************ 

it 

it  Initial  release  —  hn/16  november  79 
it  LAME: 

it  bgpbn(inx) 

It  CALLING  PROGRAM: 
ft  bgcmdm 

it  FUNCTION: 

it  update  the  Parameter  Block  (PB) 

it  save  the  PB  on  disc  when  update  is  done 

it  sends  the  PB  to  the  Foreground  Job 

it  INPUT  PARAMETER: 

it  inx  -  pointer  to  selected  input  option  in  inopt 

it  INFORMAL  INPUT: 

it  inopt  -  info  about  possible  input 

it  ALGORITHM: 

it  get  annex  from  inopt  to  get  new  parameter 

it  if  (done) 

it  save  PB  on  disc 

it  send  PB  to  Foreground  Job 

it  else 

it  store  parameter  in  PB 

it 

mmuuitMumumumummmmmmitmuititiiitmit 

subroutine  bgpbn(inx) ; 

common  /blkl/mentbl(TELMAX) ,  nuir.opt; 
integer*2  inopt (OPTL , INMAX) ; 
equivalence  (mentbl(I ) , inopt ( 1 , l ) ) ; 


//****************************************************************** 

it 

if  6.  LOG  MANAGER 

if 

^ ********************************************************** ******** 

if 

if  Initial  release  —  hn/16  november  79 
if  NAME: 

#  bglogm(index) 
if  CALLING  PROGRAM: 

#  bginpn 
if  FUNCTION: 

it  log  the  operator's  input  action  on  a  disc  file 

if  INPUT  PARAMETER: 

if  index  —  index  to  input  in  array  inopt 

it  INFORMAL  INPUT: 

it  inopt  -  contains  info  about  possible  inputs 

if  ALGORITHM: 

if  get  plain  English  command  from  inopt 

if  write  command  to  disc  file  'inplog.dat'  on 

if  logical  unit  LULOG 

If 

it  it  it  it  it  it  if  it  it  it  it  it  if  it  it  it  if  it  it  it  if  it  it  it  it  it  it  it  it  it  it  it  it  it  if  it  it  it  it  itif  it  it  it  it  it  it  it  if  Mtit  it  it  it  it  it  it  tt  it  it  it  it  Mt  it 

subroutine  bglogm(index) ; 

common  /blkl/raentbl (TBLMAX) ,  numopt; 

common  /b lk 1 7 / lumsg , lums  tk , luraenu , lut  td , lu t sys , lu log ; 
integer*2  inopt(OPTL.INMAX) ; 
equivalence  (mentbl(l ) .inopt (1 . 1) ) ; 

write(lulog, 100)  (inopt(i, index) ,i«2,6) ; 

100  f ormat (5a2) ; 

return; 

end 
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***************** ************************************* **************** 
#  * 


7.  MESSAGE  MANAGER 


ijf**********  ***********************************  ************************ 

it 

it  Initial  release  —  hn/Il  Sept  79 

#  NAME: 

#  bgmsgm(itype) 

#  CALLING  PROGRAM: 

9  EXECUTIVE  —  the  very  first  time  (requested  by  RT-I1) 

it  RT-11  --  bgnsgra  is  to  be  scheduled  using  itimer  call 

it  FUNCTION: 

it  Update  the  enhancement  of  the  ACKNOWLEDGE  button 

it  Process  requests  to  erase/display  messages  (operator  input 

it  related  or  warning  messages)  initiated  by  the  BG  Controller 

it  or  any  BG  Task 

it  Erase/display  messages  on  the  TT  Display 

it  save  message  stacks  on  disc/  read  nsg  stacks  from  disc 

it  INPUT  PARAMETER: 

#  itype  —  specifies  the  action  requested  by  the 

it  scheduling  program 

it  HOACTN  -  dummy  call  from  executive 

it  EINPUT  -  Erase  input  related  message 

it  EWARN  -  Erase  warning  message 

It  DINPUT  -  Display  input  related  message 

it  DWARN  -  Display  warning  message  from  Controller 

It  DWARNT  -  Display  warning  message  from  Task 

it  INFORMAL  INPUT: 

it  msgstk  -  warning  message  stack 

#  msgstr  -  read  pointer  for  stack 

it  msgstw  -  write  pointer  for  stack 

it  inpmsg  -  input  related  message 

it  iwmsg  -  warning  message  initiated  by  a  BG  Task 

it  rasgw  -  warning  message  initiated  by  EG  Controller 

it  msgwpr  -  read  pointer  for  msgw 

It  msgcnt  -  counter  for  warning  messages 

it  mgstsw  -  points  to  msg  stack  half  to  write  into 

it  INFORMAL  OUTPUT: 


it  same  as  informal  input 

it  NOTE: 

it  This  is  a  completion  routine  and  will  not  be 

#  interrupted  by  any  other  EG  program. 

#  ALGORITHM: 

it  if  NOACTN  ,  return 

#  if  EINPUT 

it  erase  message  field,  return 

It  if  EWARN 

it  display  any  waiting  warning  message 

9  update  ACKNOWLEDGE  enhancement 

it  return 

9  if  DINPUT 

9  display  message,  return 

9  if  DWARN  or  DWARNT 
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I 


$  display  warning  message  or  save  It  on  stack 

it  update  ACKNOWLEDGE  enhancement 

#  return 

if 

It  it  it  it  it  #  it  it  it  it  it  If  ii  it  If  #  it  it  it  it  it  4  it  It  #  it  1i  v  it  it  it  it  it  it  it  it  it  it  it  itit  it  it  it#  Hit  itit  it  Hit  it  it  Hit#  it  if  it  ititit  unite  it  it 

subroutine  bgmsgm(ltype) ; 

common  /blklO/killf 1, Inf lag; 

t  no  action  on  dummy  call  from  EXECUTIVE 
if(itype  ■■  NOACTN)  return; 

4  accept  no  Input  when  displaying 
inflag-HOACPT; 

it  Erase  Input  related  message 
If (Itype  —  EINPUT) 

{ 

call  elnnsg; 

> 

it  Erase  warning  message 
else  If (Itype  EWARN) 

{ 

call  ewmsg; 

> 

4  Display  Input  related  message 
else  if (itype  —  DINPUT) 

{ 

call  einmsg; 
call  dinmsg; 

} 


#  Display  warning  message 

else  if (itype  ■■  DWARN  |  itype  ■■  DWARNT) 

{ 

call  dwmsg(itype) ; 

> 

#  accept  input 
inflag-ACCEPT; 

return; 

end 


it********************************************************************* 

it  * 

It  7.1  EINMSG 

e  * 

4********************************************************************* 

it 

9  Initial  release  —  hn/12  Sept  79 
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0  NAME: 

#  einnsg 

0  CALLINC  PROGRAM: 

It  bgmsgm 

#  FUNCTION: 

It  Erase  any  displayed  operator  input  related 

It  message  on  the  display 

#  ALGORITHM: 

#  position  display  cursor 

#  clear  line  (ESC  K) 

It 

It  t  It  It  It  It  It  It  it  It  it  It  It  If  if  #  4  If  It  It  It  It  It  It  It  It  It  it  II  It  it  It  It  it  tit  It  It  It  it  it  It  It  It  IfiHHUKtlllUt  It  It  It  It#  It  it#  it#  Itltlt  it  itit  it 
subroutine  einmsg; 

common  /blk 1 7/lumsg, luns  tk , lunenu , lut  td , lutsys , lulog ; 

It  command  string  to  erase  input  related  message 
logical*l  erasei(12); 

It  BEL  ESC  &  a  2  1  r  2  1  C  ESC  K 
data  erasei/0 7, 2 7, 38, 9 7, 50,49, 114,50,49,67,27 ,75/; 

ihp“iwritw(6, erase!, 0,luttd) ; 

return; 

end 


//**** *********** **** ***** ******************* *** *********  ************** 
#  * 

0  7.2  E  W  M  S  G 

It  * 

jjf  ********************************************************************* 

it 

It  Initial  release  —  hn/12  Sept  79 
It  NAME: 

<*  ewmsg 

It  CALLING  PROGRAM: 

#  bgmsgm 

#  FUNCTION: 

0  Erase  the  display  of  a  warning  message 

#  Display  any  waiting  warning  message 

0  Update  the  enhancement  of  ACKNOWLEDGE  button 

0  INFORMAL  INPUT: 
it  msgstk  -  message  stack 

It  nsgstr  -  read  pointer  for  stack 

0  msgstw  -  write  pointer  for  stack 

0  msgcnt  -  counter  for  warning  messages 

0  mgstsw  -  stack  switch,  indicating  into  which  stack  half 

0  a  new  message  has  to  be  stored 

0  inopt  -  operator  input  option  information 

0  INFORMAL  OUTPUT: 
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It  sane  as  informal  input 

#  ALGORITHM: 

it  if  no  message  on  stack 

if  erase  message  display 

it  return 

If  while  there  is  message  text  ,  do 

it  if  read  pointer  in  upper  half  of  stack 

#  get  next  characters 

it  if  ENDOFM,  break  loop 

It  else 

it  if  no  stack  saved  on  disc 

it  move  lover  half  to  upper  half  of  stack 

it  else 

it  read  stack  from  disc  into  upper  half 

it  update  pointer  to  stacks  on  disc 


it  update  message  counter 

it  if  no  messages  on  stack 

it  stop  blinking  ACKNOWLEDGE  button 

it  display  message 

it  return 

it 

itititititltif!titititititil{tit.itit1tititiHtiHHHHHtitiHHHHIiHtiHliHHti}it1tltitii1tV1HH}1titiHHHtitiHHHHtlt#1tlHt 


subroutine  ewmsg 

it  Menu  Table  declaration,  number  of  input  options 
common  /blkl/mentbl(TBLMAX) ,  nunopt; 


it  Message  stack,  stack  read  and  write  pointer 
logical*l  msgstk(MGSTLl) ; 
common  /blk6/msgstk,  msgstr,  msgstw; 


It  number  of  warning  messages  to  be  displayed 
it  index  to  warning  message  stack  half  to  write  into 
H  first  message  stack  record  number  on  disc  file 
It  last  message  stack  record  number  on  disc  file 
common  /blkl2/msgcnt ,  mgstsw,  mfrec,  mlrec; 

common  /blk 1 7/lunsg, lums tk , lumenu , lut td , lutsys , lulog ; 

#  temporary  storage  of  message  text 
logical*l  mbuff(MSGL); 

#  array  to  structure  the  message  stack 

#  into  upper  and  lower  half 
logical*l  mstk(MCSTL2, 2) ; 
equivalence  (msgstk(l),  mstk(l,l)); 

#  array  containing  input  option  Information 
integer*2  inopt (OPTL, INMAX) ; 

equivalence  (mentbl ( 1 ) , inop t ( 1,1)); 


2 


#  command  string  to  erase  warning  message 
logical*l  erasew(12); 

data  erasew/C 7, 2 7, 38, 9 7, 50, 50, 11 4, 50, 49, 67, 2 7, 75/; 


if  if  only  1  warning  message  exists,  erase  it 
if(msgcnt  <-  1) 

{ 

ihp-iwritw(6,erasew,0,luttd) ; 

msgcnt  “  0; 

return; 

} 


If  copy  a  warning  message  from  msg  stack  into  msg  buffer 
It  if  needed  msg  stack  is  saved  on  disc,  read  it  and 
0  continue  to  copy, 
mbuffx«2;  mbuff(l)*36;  If 
while(mbuffx  <■  M5GL) 

{ 

If  if  msg  on  stack  in  memory 
if(msgstr  <*  KGSTL2) 

{ 

mbuff (mbuf fx)  ■  msgstk (msgstr) ; 
msgstr  ■  msgstr+1; 

if  stop  if  message  complete 
if (mbuf f (mbuf fx)  ■■  ENDOFM)  break; 
mbuf f x»mbuffx+l ; 

) 


If  warning  message  either  in  lower  half  of  message  stack 
If  or  there  is  a  msg-stack  saved  on  disc 

else 

( 

If  if  no  stack  on  disc 

If  copy  lower  stack  half  into  upper  half 
if(nfrec  mm  0) 

( 

for(i-l;  i<-HGSTL2;  i-i+1) 
mstk(i,l)  ■  mstk(i,2); 
mgstsw  -  1; 

} 

If  if  stack  on  disc,  read  it  into 
9  upper  stack  half 

else 

( 

X  read(lumsg'mf rec,ERR»9999)  (mstk(i,l) ,i»l ,60) 

if(mfrec  ■■  mlrec) 

{ 

mfrec  ■  0; 
mlrec  ■  0; 

> 

else 

mfrec  ■  mfrec+1; 
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} 

9  reset  read  pointer  in  r.sg  stack 
msgstr  "  1; 

> 


#  update  counter  for  warning  nessages 

#  if  no  more  messages  waiting,  stop  blinking 

#  of  ACKNOWLEDGE  button 
msgcnt  “  msgcnt-1; 

if(rasgcnt  <  2) 

{ 

msgstr  ”  1; 
msgstw  ■  1; 
tngstsw  -  1; 

for(i-l;  K-CONMAX;  i-i+1) 

{ 

if (inopt(CODE.i)  —  ACODAC) 

{ 

call  enhanc ( i , BLKEND ) ; 
break; 

> 

> 


> 

9  write  message,  clear  rest  of  line 
ihp-iwritw(6,erasew,0,luttd) ; 
mbuff  (nbuffx)-O;  9  ASCII  NUL 

nwords-mbuf fx/2;  #  number  of  words 

ihp-iwritw(nwords,mbuf f ,0,luttd) ; 
return; 


9  if  read  error 
9999  continue 
return; 
end 


f ******************************************** * ************************ 
#  * 

t  7.3  DINHSG 

#  * 

f ********************************************************************* 
# 

i  Initial  release  —  hn/26  Sept  79 

#  NAME : 

#  dinnsg 

#  CALLING  PROGRAM: 

9  bgmsgm 

#  FUNCTION: 

#  display  new  input  related  message 

#  NOTE: 
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#  Che  first  character  in  a  message 

#  will  not  be  displayed 
it  INFORMAL  INPUT: 

if  inprnsg  -  input  related  message 

If  inopt  -  info  about  operator  input  options 

#  ALGORITHM: 

if  position  cursor 

If  display  new  message 

If 

lf*lflflfilflfifffilfififfflfttlflHHflflHflHflflflfmniHHflHHHfUIHfmfHflfifififlflHHHHf9ilHlflflf9i 

subroutine  dinnsg; 

t  Menu  Table  declaration,  number  of  input  options 
common  /blkl/mentbl(TBLMAX) ,  numopt; 

logical*!  inpnsg(MSGL) ,  iwmsg(HSGL); 
common  /blk5/inpmsg, iwmsg; 

common  /blkl 7/lumsg , lums tk , lunenu , luttd,lutsys,lulog; 

#  array  containing  input  option  info 
integer*2  inop t(OPTL, INMAX) ; 
equivalence  (mentbl(l),  lnopt(l,l>); 
logical*l  swtext(2); 
data  swtext/36,15/; 


#  write  the  message,  any  old  one  has  already  been 
If  erased  by  einmsg,  the  cursor  is  positioned 
ihp-iwritw(l,swtext.O,luttd) ; 
ihp*iwri tw(2 7 .inprnsg, 0, luttd) ; 
return; 
end 


§ ************** ********** ****** * * ** * * **** * **** * **** A********** ******** 

t  * 

If  7.4  D  W  M  S  G 

#  * 

;********************************************************************* 
It 

#  Initial  release  —  hn/26  Sept  79 

#  NAME: 

#  dwnsg(itype) 

#  CALLING  PROGRAM: 

#  bgmsgra 
t  FUNCTION: 


i 
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6  display  a  warning  message  or 

9  score  1C  on  stack 

#  update  enhancement  of  ACKNOWLEDGE  button 

#  INPUT  PARAMETER: 

4  itype  -  specifies  the  message  originator 

$  DWARN  -  msg  from  BG  Controller 

4  DWARNT  -  msg  from  BG  Task 

#  INFORMAL  INPUT: 

9  msgstk  -  message  stack 

#  msgstr  -  read  pointer  for  stack 

It  msgstw  -  write  pointer  for  stack 

It  msgcnt  -  counter  for  warning  messages 

4  mgstsw  -  stack  switch,  indicates  into  which  half  of 

4  the  stack  (upper, lower)  a  new  message  has  to 

It  be  stored 

It  msgw  -  warning  message  from  BG  Controller 

9  msgwpr  -  read  pointer  for  msgw 

It  iwnsg  -  warning  message  from  BG  Task 

9  inopt  -  input  option  information 

t  INFORMAL  OUTPUT: 

It  same  as  informal  input 

9  ALGORITHM: 

9  Store  message  from  either  controller  or  task  into  buffer 

It  If  no  message  being  displayed 

9  display  new  message 

It  reset  stack  pointer 

9  else 

#  copy  mesage  from  buffer  to  stack 

9  if  stack  overflow 

9  write  stack  onto  disc 

it  update  pointers  and  flags 

It  increment  message  counter 

9  if  two  messages  present,  start  blinking  of  ACKNOV/LEDCE 

9  return 
9 

49494994994494499944449444444949444949949494449494494949449494491199994 

subroutine  dwmsg(itype) ; 

#  Menu  Table  declaration,  number  of  input  options 
common  /blkl/mentbl(TBLMAX) ,  nuraopt; 


#  Storage  for  operator  input  related  messages 
9  and  warning  messages  from  tasks 
logical*l  lnpmsg(MSGL) ,  lwmsg(MSGL) ; 
common  /blkS/inpmsg,  iwmsg; 

4  Storage  for 

9  warning  messages  from  BG  Controller, 

4  read  and  write  pointer  for  msgw 
logical*l  msgw(MSGWL); 
common  /blk6/msgw, msgwpr, msgwpw; 


I 


#  Message  stack,  stack  read  and  write  pointer 
logical*l  nsgstk(MGSTLl ) ; 

common  /blk8/msgstk,  msgstr,  n:sgstw; 

it  number  of  warning  messages  to  be  displayed 
4  index  to  warning  message  stack  half  to  write  into 
4  first  message  stack  record  number  on  disc  file 

#  last  message  stack  record  number  on  disc  file 
common  /blkl2/msgcnt,  mgstsw,  mfrec,  ralrec; 

common  /blkl 7/lumsg, lumstk, lumenu, luttd, lutsys , lulog ; 

#  temporary  storage  for  messages 
logical*l  mbuff(MSGL); 

it  array  to  structure  the  message  stack 

#  into  upper  and  lower  half 
logical*l  mstk(KGSTL2, 2) ; 
equivalence  (msgstk(l),  mstk(l,l>); 

#  array  containing  input  option  information 
integer*2  inop t (OPTL, INMAX ) ; 

equivalence  (mentbl(l),  inop t (1,1)); 

it  array  containing  command  string  to  position 
4  cursor  and  clear  line 
logical*l  displw(12); 

data  displw/O/, 27, 38, 9 7, 50, 50, l 14, 50,49,67,2 7, 75/; 

#  message  generated  by  3G  Controller 
if (i type  —  DWARN) 

{ 

mbuff (l)-36;  4  '$' 

rabuff (2)-15;  It  Control  0 
for(i«3;  K-MSGL;  i-i+l) 

{ 

mbuff(i)  *  nsgw(msgwpr) ; 
msgwpr  ■  msgwpr+1; 
lf(msgwpr  >  MSGlvX)  msgwpr»l; 
max  *  i;  #  save  index 

if (mbuf f (i)  —  ENDOFM)  break; 

} 

) 

#  message  generated  by  DC  Task 

else 

{ 

mbuff (1)«36;  #  '$' 

mbuff(2)-15;  It  Control  0 
for(i-3;  K-MSGL;  i-i+l) 

{ 

max  -  i; 


4  save  index 


mbuff(i)  ••  iwmsg(i); 

if (mbuf f (i)  —  ENDOFM)  break; 

} 

> 

it  display  new  message  if  it  is  the  first  one 
if(msgcnt  0) 

{ 

ihp*iwritw(6,displw,0,luttd) ; 
nwords-max/2; 

mbuf  f  (max) *0;  ASCII  NUL 

ihp»iwritw(nwords,mbuf f ,0, luttd) ; 
msgstr  •  1; 
msgstw  »  1; 
mgstsw  »  1; 

> 


it  copy  message  to  stack  (upper  or  lower  half) 

else 

( 

for(rabuffx»l;  mbuf f x<«nax;  mbuf fx«mbuf f x+1 ) 

{ 

it  no  overflow  of  message  half 
if (msgstw  <»  MG STL 2) 

{ 

mstk(msgstw, mgstsw)  -  mbuf f (mbuf fx) ; 
msgstw  -  msgstw+l; 

> 

else 

( 

it  if  upper  switch  to  lower  half  of  stack 
if  (mgstsw  «*■  l) 
mgstsw  -  2 
else 

it  upper  and  lower  half  overflown 
it  write  lower  half  onto  disc 

{ 

if(mfrec  ■-  0) 

{ 

mfrec  ■  1; 
mlrec  ■  1; 

> 

else  ^ 

mlrec  •  mlrec+1; 

1  write(lumsg'mlrec,ERR-9999)  (mstk(i,2) ,i»l,60) 

> 

msgstw  ■  2;  ; 

mstk(l,mgstsw)«mbuff (mbuffx) ;  I 

>  I 


#  update  message  counter  and  enhancement 
msgcnt  ■  msgcnt+1; 


] 
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1 


if(msgcnt  mm  2) 

{ 

for(i«l;  i<-COtUlAX;  i-i+1) 

{ 

if (inop t (CODE, i)  —  ACODAC) 

( 

call  enhanc(i,BLKBEG) ; 
break; 

> 

> 

> 

return; 

#  write  error 
9999  continue 
return; 
end 
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l;ENU  EDITOR  PROGRAM 


******************************* * * ** *********************************** 

if  * 

it  11  E  M  U  E  D 

#  * 

jf  ****************************************************** ****** ********* 

it 

it  Initial  release  —  hn/1  Oct  79 
it  NAME: 

it  oenued 

it  FUNCTION: 

it  create  new  menus 

it  update  existing  menus 

it  delete  menus 

it  print  menu-id's  of  all  menus  stored  on  the  menu  file 

it  CALLINC  PROGRAM: 
it  RT-11 

it  INPUT: 

#  text  file  with  all  needed  information  having  the  format 

it  described  below. 

it  OUTPUT: 

it  -  text  file  or 

it  -  new  menu  on  disc  or 

it  -  file  with  all  menu  id's 

it  NOTES: 

it  This  is  an  off-line  program. 

it  It  interprets  a  standard  input  in  certain  format. 

it  Each  @  (end  of  text),  or  ','  (end  of  integer),  or 

it  |  (end  of  line)  may  be  followed  by  comments. 

it  Input  may  be  files  or  any  input  device.  Each  line 

it  of  input  has  to  be  in  the  following  formats 

it  (  line  number  ) : 

it 

it  (1)  :  function 

it  2:  create  -  create  a  new  menu 

it  3:  update  -  update  an  existing  menu 

it  1:  delete  -  delete  an  existing  file 

it  8:  initm  -  create  initial  start  menu 

it 

it  The  following  formats  will  depend  on  the  functions. 

# 

it  for  all  input  files: 

#  (1)  :  function  code 
it 

it  for  delete,  create,  update 
it  (2)  :  menu-id 

it 

It  for  create, update 

it  (3)  :  predecessor  menu-id 

it  ( 4)  :  menu-type 

#  (5)  :  menu  title 
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1 


9  (6)  :  number  of  question/text  blocks 

# 

for  each  question/text  block: 

If  :  start-block  code  (126) 

If  :  number  of  responses 

It  :  location  of  buttons 

It  :  size  of  buttons 

it  :  text 

it 

it  for  each  response: 

it  :  start-response  code  (127) 

It  :  label  (1  characters) 

9  :  plain-English  command  for  logging  (10  characters) 

it  :  action  code 

it  :  annex 

it 

9999999999  9999  it, titit  it  it  it  9itit  it  it  it  it  it  it  It  it  it  it  it  it  it  it  it  it  it  9  it  it  9  9  it  it  9  it  it  it  it  it  it  it  it  it  it  ititit  it  itit  Hit  it  Hit 


define 

LUR 

9 

9 

logical  unit  for  read 

def ine 

LUU 

6 

9 

logical  unit  for  write 

define 

LUMR 

7 

9 

logical  unit  for  menu  file  read 

define 

LU11W 

8 

it 

logical  unit  for  menu  file  write 

define 

LUTTD 

4 

9  logical  unit  display 

define 

NDREC 

20 

9 

number  of  directory  records 

define 

NIREC 

4 

9 

max  4  records  for  image 

define 

EOREC 

2 

it 

max  2  records  for  input  options 

9  function 

codes  : 

from  input  file 

define 

PREDtl 

0 

it 

find  a  menu  id  in  directory 

9 

(  id  in  ipredm) 

def ine 

DELETE 

1 

9 

delete  menu  id  in  directory 

define 

CREATE 

2 

it 

insert  a  new  menu  id  in  directory 

define 

UPDATE 

3 

it 

find  a  menu  id  in  directory 

9 

(id  in  renuid) 

def ine 

SUCCM 

4 

it 

find  menuid  of  successor  menu 

define 

INITM 

8 

9 

create  the  initial  menu 

#  code 

for 

button 

locations 

define 

LOCA 

1 

9 

button 

row  below  the  text 

define 

LOCB 

2 

9 

button 

row  beside  text 

define 

LOCC 

3 

9 

button 

collumn  beside  text 

9  symbolic  names 

for  fixed  margins 

define 

LEETM 

12 

9  left  margin  of  menu  field 

define 

LMARG 

20 

9  lower  margin  of  menu  field 

9  right 

margins 

for  button  rows/collunns 

define 

R11ARGA 

75 

9  button  row  below  text 

def  ine 

RMARGB 

75 

9  button  row  beside  text 

define 

R11ARGC 

75 

9  button  collumn  beside  text 
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define 

DELTA 

2 

if 

free  rows/coll  between  buttons 

define 

II  !  AG  EL 

2432 

it 

image  storage  length  (bytes) 

define 

IXOPTL 

15 

it 

word  length  for  each  input  option 

define 

INtlAX 

37 

if 

max  number  of  input  options 

def ine 

IBUFFL 

80 

if 

input  buffer  length 

define 

ENDCFI 

8316 

if 

code  for  end-of-input 

define 

ENDOFR 

32382 

if 

code  for  end-of-record 

define 

TEXT 

15 

if 

code  for  text  mode 

define 

BUTT 

14 

if 

code  for  line  mode 

define 

NOCH 

0 

if 

no  change  of  mode 

define 

S BLOCK 

126 

if 

code  for  start-text/question-bloclc 

define 

SRESP 

127 

if 

code  for  start-response-block 

if  symbolic  input  parameter 

define 

DONE 

l 

if 

done 

define 

KODONE 

0 

if 

not  yet  done 

it  ASCII 

character 

define 

ESC 

27 

if 

ESC 

define 

CONTRO 

15 

if 

CONTROL  0 

define 

CONTRN 

14 

if 

CONTROL  N 

if  input  buffer 
integer*2  ibuf f (IBUFFL) ; 

if  storage  for  menu-id 
integer*2  nenuid(lO); 

if  storage  for  menu-id  to  lookup  in  directory 
integer*2  ipredm(lO); 

v  storage  for  image 
integer*2  image ( II1AGEL ) ; 

if  storage  for  input  options 
integer*2  inopt(INOPTL,INKAX); 

it  pointer 

integer*2  imagep  if  next  free  entry  in  image 

integer*2  inoptp  if  next  free  entry  in  inopt 

H  next  line  to  write  on  display 
integer*2  lincnt; 

#  display  mode 
integer*2  mode; 

if  function  code 
integer*2  lfunct; 

integer*2  idold(lO);  #  menuid  to  find  in  directory 


jjwdui! .jairagnmnii 


integer*2  idnew(lO);  It  menuid  to  store  in  directory 


it  menu  parameter 

integer*2  nblock;  it  number  of  text/question  blocks 

integer*2  nbutt;  It  number  of  buttons  for  a  block 

integer*2  iloc;  It  location  of  buttons  in  a  block 

integer*2  isize;  It  size  of  buttons 

integer*2  raentyp;  It  menu  type 

lnteger*2  ipredr;  It  record  number  of  predecessor  menu 

lnteger*2  ispace;  #  space  lines  between  text  blocks 

lnteger*2  irec.param, ichar; 

integer*2  mr(21 ,50)  ,ptr;  It  temporary  storage  for  menuid, rec 

lnteger*2  rowcur;  It  row  the  cursor  is  in 

integer*2  highr;  It  highest  record  nunber  created 

integer*2  ibseq(7);  It  sequence  of  drawing  permanent  buttons 

it  entries  are  index  to  inopt 


integer  insave, irsave,iwsave;  It  file  descriptor  from  open 

common  /blkl /image , imagep , inopt , inop tp ; 

common  /blk2/lincnt ; 

common  /blk3/mode; 

common  /blk4/menuid, ipredn; 

common  /blk5/ibuff; 

common  /blk6/nblock; 

common  /blk7/nbutt, iloc, isize; 

common  /blk8/mentyp, ipredr; 

common  /blk9/ispace ; 

common  /b lk 10 /rowcur ; 

common  /blkll/irsave,iwsave; 

common  /blkl2/idold, idnew; 

common  /blkl3/mr ,ptr; 

common  /blkl4/highr ; 

common  /blkl5/ifunct; 

common  /blU16/ibseq; 

ibseq(l)«l; 
ibseq(2)«2; 
ibseq (3)“4; 
ibseq(4)«7 ; 
ibseq(5)«5; 
ibseq(6)*6; 
ibseq(7)»3; 


#  specify  logical  unit  numbers  and 

#  open  menufiles  for  read/write 

t  the  old  menu  file  'menufile'  is  read  and 

#  it  is  written  onto  a  temporary  menu  file  'menuout'. 

#  after  all  is  done,  'menuout'  is  copied  to  'menufile'. 
call  setf  il (LIJKR ,  'menufile  '); 

call  setf  1KLUMW, 'menuout  '); 
call  setfil(LUR, 'infile  '); 
lrsave^LUliR; 
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iwsave-LUllW; 

it  preset  inopt, image, menuid,ipredm,ichar, nir 
9  imagep , inoptp , lincnt , ispace 
for (i-1 ;i<-IKMAX; i-i+1) 

{ 

for(j-l;j<«INOPTL;j-j+l) 

inop t(j,i) -12336;  #  'O'.'O' 

> 

f  or  (i-1 ;  K-IMAGEL ;  i-i+1 ) 

image (i) *8240;  9  SP.'O' 

for(i-l;i<-10;i-i+l) 

{ 

menuid(i)-8240;  It  SP.'O' 

ipredn(i)-8240;  it  SP.'O' 

> 

ichar-8256;  it  SP.'@' 
ptr«l; 

for(i*l;i<*50;i*i+l) 

{ 

for (j-1 ; j<-21; j-j+1) 
mr(j,i)-0; 

} 

lincnt»0; 
inoptp*l ; 
imagep *1 ; 
ispace*0; 
rowcur*0; 


9  read  function  code 
read (LUR, 1000)  ifunct; 

1000  format (13); 

it  create  initial  menu 
if (ifunct  —  INITM) 
call  initm 


else 

{ 

#  delete, create, update 
it  save  menu-id 
read (LUR, 100)  ibuff; 

100  format (80al ) ; 

i-1; 

while(i<*10  &  ibuf f (i) !*ichar) 

{  menuid(i)*ibuf f (i) ;  i-i+1;  > 


#  delete 


if (ifunct  --  DELETE) 
call  delete 


else 

{ 

P  create, update 

if (ifunct  —  CREATE  |  ifunct  «  UPDATE) 

{ 

read (LUR, 100)  ibuff; 

i-i; 

while(i<«10  &  ibuff (i) i*ichar) 

(  ipredm(i)»ibuf f (i) ;  i*i+l;> 
param**PREDK; 

call  setmen(paran, irec) ; 


ipredr»irec; 

P  read  nenu  type 
read (LUR, 1000)  mentyp; 
call  setmen(ifunct,irec); 
call  update(irec) ; 

> 

} 

> 

If  close  all  files 
rewind  LUKR; 
rewind  LUHW; 
rewind  LUR; 

end 


$********************** A******** *** **** *** ************************  it*** 

If 

If  SETHEN 

if 

jP***** A *************************************************************** 

if 

P  Initial  release  —  hn/2  Oct  79 
P  NAME: 

P  setmen(if lag, irec) 

#  CALLING  PROGRAM: 

P  menued 

P  FUNCTION: 

P  prepare  store  for  new  and  old  menuid 

P  and  set  menuid  into  mr 

#  INPUT  PARAMETER: 
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1 


#  if  lag  — 

1 1  SUCCM  -  find  successor  menu  in  directory 

#  CREATE  -  insert  a  menu  id  in  directory 

fi  UPDATE  -  find  a  menu  id  in  directory 

it  PREDM  -  find  predecessor  menu  id  in  directory 

if  OUTPUT  PARAMETER: 

it  irec  —  index  of  menuid  in  nr 

#  INFORMAL  INPUT: 

#  menuid  -  menu  id  to  create  or  update 

if  ipredm  -  menu  id  to  find  in  directory 

#  ALGORITHM: 

#  reset  temporary  id  stores 

#  copy  id's 

it  save  old  and  new  menuid  in  nr,  return  index 

it 

it 

it  it  it  it  it  it  if  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  iHHtitlHHHHt  it  it  it  MM  Hit  it  it  it  it  MU  it  MM  Hit 

subroutine  setmen(if lag, irec) ; 


integer*2  if lag, irec; 
integer*2  pl,p2; 
common  /blk4/menuid , ipredm; 
integer*2  menuid(lO); 
integer*2  ipredn(lO); 

it  store  for  old  and  new  menuid 
common  /blkl2/idold,idnew; 
integer*2  idold(lO); 
integer*2  idnew(lO); 


it  preset  temporary  storage  for  id's 
for(i-l;  K-10;  i-i+1) 

{ 

idold(i)-8240;  it  SP.'O' 

idnew(i)«8240; 

> 

#  store  old  and  new  menuid 's 
if  (if  lag— SUCCM  |  if  lag— PREDil) 

{ 

for(i“l;i<»10;i«i+l) 

{ 

idold(i)-ipredm(i) ; 
idnew(i)-ipredn(i) ; 

> 

> 

else 

< 

for(i-l;i<-10;i-i+l) 

{ 
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idold(i)-raenuid(i) ; 
idnew(i)-menuid(i) ; 

> 

> 

It  save  nenuid  in  nr 
call  savenr(irec) ; 

return; 

end 


ijf  *********  ******  *  ******  **  *  *******  A*****  ********  *  A*********  A*********** 

It 

it  C  P  F  I  L  E 

It 

^*****************************************************6*************** 

t 

ti  Initial  release  —  hn/6  novenber  79 
if  NAME: 

It  cpfile 

It  FUNCTION: 

It  copy  the  file  nenuout  (up-to-date)  to  nenufile 

It 

ItltititltltltttitltitltitltitliitltlfltltitltltltltititltitltltMititlHHHHHUHtfiiUtiliHHHtltiUtlflUHtlUHUtlUtlUtlHt 

subroutine  cpfile; 

integer*2  rbuff(544); 

call  cofbck;  It  close  and  open  files 

It  set  exit  for  END-OF-FILE  condition 
if (ierror (104) !-0)  goto  7777; 
while(l>0)  It  do  until  done 

{ 

read (LUMR, 100)  (rbuf f (i) , i-1 , 544) ; 
write (LUMW, 100)  (rbuf f (i) , i-1 ,542) ; 

100  f ormat (544al ) ; 

} 

7777  return; 
end 


i £i******* ************************************************************** 

# 

It  C  0  F  F  W  D 

# 

^ ************************************************ ****** A******* A* A** ** 

# 

J*  Initial  release  —  hn/31  October  79 

#  NAME: 

#  coffwd 


4  FUNCTION : 

#  close  menufile  and  nenuout 

It  open  chese  files 

H  read  from  menufile,  write  to  nenuout 

ft 

4  ALGORITHM: 
it  rewind  files 

4  connect  logical  unit  number  and  file 

4 

44444t4444444444444444itit4444444ititititit4itit4444itititititiHtitit44444itiht44itit4itititit 

subroutine  coffwd; 

common  /blkl 1 /irsave, iwsave; 
integer  irsave, iwsave; 

rewind  LUMR; 
rewind  LUMW; 

irsave*LUKR;  iwsave-LUJIW ; 


call  setfil(LUKR, 'menufile  '); 
call  setfiMLUHW, 'nenuout  '); 


return; 

end 


j :***** ******************************************************* ********* 

a 

it  C  0  F  E  C  K 


it  Initial  release  —  hn/31  October  79 
it  NAME: 

it  cofbck 

it  FUNCTION: 

#  close  menufile  &  menuout 

it  open  these  files,  read  from  nenuout,  write  to  menufile 

4  ALGORITHM: 
it  rewind  files 

it  connect  logical  unit  and  filenames 

4 

4444444444444444tt444444lt44iHt1t41t4it444it4IHtft4441Ht41titiHtiHt4444it44ititit4it4iHt1t 

subroutine  cofbck; 

common  /blk 11 /irsave, iwsave; 
integer  irsave, iwsave; 

rewind  LUMR: 


3 


"PPH^TPPI 


rewind  LUMW; 

irsave-LUhR;  iwsave*LUHW ; 


call  setf  iMLUlii, 'menuout  '); 
call  setf il(LUKW, 'nenuf lie  '); 


return; 

end 


//********************************************************************* 

it 

it  I  11  I  T  M 

H 

******* **********  ****** *********************************************** 

# 

it  Initial  release  —  hn/12  oct  79 
i?  NAME: 
it  initm 

#  FUNCTION: 

It  generate  menu  records  for  the  initial  nenu  with  permanent 

it  buttons  and  store  then  behind  the  directory  records. 

it  CALLING  PROGRAM : 
it  nenued 

it 

itilitititltitititltititiUtiUHUtiUtWIHHUHtlUHtltlUHtlilUtltiHHHtitltiUtitititlHHHHHtiUHHIiUtiUtllllitlifliilt 


subroutine  initta; 

common  /blk  1  /image ,  itnagep ,  inopt ,  inoptp ; 
comnon  /blk4/menuid,ipredn; 
connon  /blkl4/highr ; 
common  /blkl6/ibseq; 

integer*2  highr;  it  first  record  number  of  last  nenu 

integer*2  ibseq(7); 

integer*2  image (I1IAGEL) .imagep , inopt (INOPTL, INMAX) .inoptp ; 
integer*2  menuid(lO),  ipredm(lO); 


lnteger*2  pl,p2,p3,p4,ir,ic,irec,label(4, 7) ; 
integer*2  11(6) , 12(6) ,13(6) ,14(6) ,15 (6) ,16(6) ,17(6) ; 
integer*2  rbuff(544); 
equivalence  (rbuff(l),  inopt (1,1)); 

data  label(l,l)/80/;  it  P 
data  label(2,l)/82/;  it  R 
data  label(3,l)/32/;  it  SP 
data  label(4,l)/49/;  it  1 

data  label(l,2)/80/;  #  P 
data  label(2,2)/S2/;  #  R 
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data 

label(3,2)/32/; 

4 

SP 

data 

label(4,2)/50/; 

4 

2 

data 

label (1 , 3) /65/ ; 

4 

A 

data 

label<2,3)/67/; 

4 

C 

data 

label(3,3)//5/; 

4 

K 

data 

label (4, 3) /32/ ; 

4 

SP 

data 

label(l , 4) /83/; 

4 

S 

data 

label(2,4)/84/; 

4 

T 

data 

label(3,4)/65/ ; 

4 

A 

data 

label(4,4)/84/; 

4 

T 

data 

label(l,5)/83/; 

4 

S 

data 

label(2,5)/69/; 

4 

E 

data 

label(3,5)/76/; 

4 

L 

data 

label(4,5)/32/; 

4 

SP 

data 

label(l,6)/72/; 

4 

H 

data 

label(2,6)/69/; 

4 

E 

data 

label(3,6)/76/; 

4 

L 

data 

label(4,6)/80/; 

4 

P 

data 

label(l , 7) /67/ ; 

# 

C 

data 

label(2,7)/S4/; 

4 

T 

data 

label(3,7)/82/; 

4 

R 

data 

label(4,7)/76/; 

4 

L 

data 

ll(l)/'p  '/; 

data 

11(2)/'PR'/; 

data 

11(3) /'IN" / ; 

data 

11(4)/'T  '/; 

data 

11(5)/'CR'/; 

data 

ll(6)/'Tl'/; 

data 

12(1) /'r  '/; 

data 

12(2) /'PR'/; 

data 

12(3) /'IN'/; 

data 

12(4) /'T  '/; 

data 

12(5) /'CR'/ ; 

data 

12(6)/'T2'/; 

data 

13(1) /'a  '/; 

data 

13(2)/'AC'/; 

data 

13(3) /'KN' /; 

data 

13(4) /'OW'/; 

data 

13(5)/'LE'/ ; 

data 

13(6) /'DG'/; 

data 

14(1 ) /'s  '/; 

data 

14(2) /'ST'/; 

data 

14(3)/'AT'/; 

data 

14(4) /'US'/ ; 

data 

14(5)/'  '/; 
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data  14(6)/'  '/; 


data  15(1 ) /'e  '/ 
data  15(2)/'SE'/ 
data  15(3)/'LE '/ 
data  15(4) /'CT'/ 
data  15(5)/'  '/ 
data  15(6)/'  '/ 

data  16(l)/'h  '/ 
data  16 (2)/' HE'/ 
data  16(3) /'LP' / 
data  16(4)/'  '/ 
data  16(5)/'  '/ 
data  16(6)/'  '/ 

data  17(1) /'c  '/ 
data  17(2) /'CO'/ 
data  17(3) /'NT'/ 
data  17(4) /'RO' / 
data  17(5) /'L  '/ 
data  17(6)/'  '/; 


#  prepare  'menuflle'  by  writing  21  records 
It  of  542  bytes  to  it  (Unix  will  add  CPv/LF 
if1  thus  create  544  byte  records) 
it  These  records  cover  the  menu  file  directory 
It  The  record  will  be  filled  with  ASCII  '0' 

It  write  21  records 
for(i-l;io21;i«i+l) 

{ 

write (LUMR , 7000)  (rbuf f (k) ,k-l , 542) ; 

7000  f  orciat  (542al) ; 

> 


It  close  raenufile  and  open  again 
rewind  LUMR; 

call  setf il(LUIlR, 'menufile  '); 


It  set  menuid  to  'startmenu' 
menuid(l)*8307; 
tnenuid(2)«8308; 
menuid(3)“8289; 
menuid(4)»8306 ; 
nenuid(5)«8308; 
menuid(6)«8301 ; 
menuid(7)«8293; 
ir.enuid(3)>8302; 
nenuid(9)»8309; 
nenuid(10)-8224; 
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4  place  menuid  and  record  nunber  into  directory 
pi -CREATE; 

call  setmen(pl,irec) ; 

#  set  entries  for  other  initial  controller  menus 

it  into  the  menu  directory 

it  STATUS,  SELECT,  HELP,  CONTROL 
for(i-l ;i<-10;i-i+l) 

menuid (i) -8224;  #  SP 

it  'statusO' 
menuid (I ) -830 7; 
menuid (2) -8308; 
menuid(3)-S289; 
menuid (4) -8308; 
menuid (5) -8309; 
menuid (6 ) -830  7 ; 
menuid ( 7 )-8240; 
call  setraen(pl,irec) ; 

#  'selectO' 
menuid (1 ) —830 / ; 
menuid (2) -8293; 
menuid (3) -8300; 
menuid(4)-8293; 
menuid(5)-8291 ; 
menuid(6)-8308; 
menuid(7)-8240; 

call  setmen(pl,irec); 

it  'helpO' 
menuid(l)-8296; 
menuid(2)-8293; 
menuid (3) -8300; 
menuid (4) -8 304; 
menuid (5) -8240; 
menuid (6) -8224; 
menuid ( 7 ) -8224 ; 
call  setmen(pl,irec) ; 

t  'controlO' 
menuid(l)-8291; 
menuid (2) *8303; 
menuid (3) -8302; 
menuid (4) -8308; 
menuid(5)-8306 ; 
menuid (6) -8 30 3; 
menuid(7)-8300; 
raenuid(8)-8240; 
call  setmen(pl,lrec) ; 

call  updmr; 

call  lnltlm;  it  generate  image  to  initialize  TT  Display 
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if  set  label.log  conmand, button  coordinates  and 
if  action  code  into  inopt 
for(i*l;i<*6;i*i+l)  if  label 
{ 

inopt(i,l)*ll(i); 
inopt(i,2)*12(i) ; 
inopt(i,3)*13(i) ; 
inopt(i,4)*14(i); 
inopt(i,5)-15(i); 
inopt(i,6)*16(i) ; 
inopt (i , 7)*1 7(i) ; 

> 

if  coordinates  of  buttons 
inopt(8,l)*3; 
inopt(10, l)-l ; 
inopt(8,2)*7 ; 
inopt(10,2)*5; 
inopt (8 ,3) *23; 
inopt(10,3)-21; 
inopt(8,4)*il ; 
inopt(10,4)«9; 
inopt(8,5)*19; 
inopt(10,5)*17; 
inopt(8,6)«23; 
inopt(10,6)*21 ; 
inopt (8 , 7 ) — 1 5 ; 
inopt(10,7)-13; 

if  action  codes 
inopt (11, 1)*7; 
inopt(ll,2)-8; 
inopt(ll,3)-9; 
inopt(ll,4)*10; 
inopt  ( 11, 5)  *1 1; 
inopt (11, 6) *12; 
inopt(ll,7)«13; 

#  set  left  and  right  bounds 
for(i»l;i<*7;i*i+l) 

{ 

if(i**3)  #  acknowledge 

{ 

inopt(7,3)*10; 

inopt(9,3)*15; 

) 

else 

{ 

inopt(/,i)*l; 
inopt (9,i)*6; 

> 

> 


148 


it  score  image  for  buttons  and  label 
pl-2;  p 2 “TEXT; 
for (i“l ; i<“7 ; i“i+l ) 

{ 

inoptp-ibseq  ( 1 ) ; 
call  draw; 

ic“inopt(7,inoptp)+l;  It  collum  of  label 
ir“inopt(10,inoptp)+l;  H  row  of  label 

call  poscur(pl,ir,ic,p2) ; 
for(k“l;k<“4;k“k+l)  It  image 
{ 

image (imagep )“label(k, inoptp) ; 
imagep“imagep+l ; 

> 

ic“inopt( 9, inoptp) ; 
ir«inopt( 8, inoptp) ; 

call  poscur(pI  ,ir,  ic,  p2) ;  It  right  lower  corner 
image ( imagep) “inopt(l, inoptp) ; 
imagep-imagep+1 ; 

> 


It  convert  integer  of  coordinates  and  action  codes 
it  into  ASCII  coded 
for(i“l ;i<“7;i“i+l) 

{ 

for(k“7;k<»ll  ;k**k+i) 

{ 

pl-inopt(k.i) ; 

call  intasc(pl,p2,p3) ; 

inopt (k, i)»p2*256+p3; 

} 

> 


it  roll  down  screen,  row  0  now  on  top 
image ( imagep ) “27 ;  It  ESC 
imagep-imagep+l ; 
image (imagep) “84;  It  T 
imagep“imagep+l ; 

It  clear  all  lines  of  the  multi  purpose  menu  field 
p2“l ;  pl“2;  p3“LEFTM;  p4-N0CH; 
call  poscur(pl,p2,p3,p4) ; 
f  or  (i“l ;  K-LliARC ;  i“i+l ) 

{ 

image(inagep)“27 ;  It  ESC 
imagep“imagep+l ; 
image(imagep)“75;  If  K 
inagep“inagep+l ; 
inage(iragep)“27;  it  ESC 
inagep“inagep+I ; 
image  (imagep)  “66;  It  B 
ir.agep“iwagep+l ; 

if(i““10)  //separate  command  string 

{ 

image  (imagep)  “2  7 ;  It  ESC 
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imagep*imagep+l ; 
image (imagep) *65;  It  A 
imagep«inagep+l ; 
i' iage(ima£ep)*36;  it  $ 
ipiagep»imagep+l ; 

> 

> 

H  set  end  of  input  code 
image(imagep)*36;  It  $  (CR  LF) 

imagep«imagep+l ; 
image (imagep)»ENDOFI ; 
imagep“imagep+l ; 

call  shift;  #  arrange  image  in  buffer 

V  store  parameters 
pl**l;  call  intasc(pl ,p2 ,p3) ; 

inopt(2,36)*p2*256+p3;  #  menu  typ  (start  menu) 

pl«7;  call  intasc(pl ,p2,p3) ; 

inopt(3,36)“p2*256+p3;  If  nurber  of  input  options 
inopt(15,36)«ENDOFR;  It  end  of  record  code 

If  write  imagerecords 

If  temporarily  substitute  the  last  entry  by  '0' 
if  to  prevent  that  it  is  a  trailing  KUL. 
for(ind*542;  ind<“IHAGEL ;  ind-ind+540) 

{ 

indbeg*»ind~541 ; 

isave«image(ind) ;  image(ind)*8240;  It  SP.'O' 
write (LUhW,100G)  (image(i) , i«indbeg, ind) ; 

1000  format (544al ) ; 
image ( ind ) -isave ; 

} 


if  write  input  option  records 
write(LUMW,500)  (rbuf f (i),i*l,2/l); 
write(LUUW,500)  (rbuf f (i),i *271,541); 

500  format(272a2) ; 

It  create  records  for  all  predecessor  menus 
irecn*NDREC+6;  If  last  record  of  startmenu 
while(irecn  <  highr) 

{ 

for(i-l;i<-6;i-i+l) 

{ 

write (LUMW, 500)  (rbuf f (k) ,k»l ,2 /I ) ;  4  dummy  records 

irecn-irecn+1 ; 

} 

> 


If  copy  file  from  menuout  to  nenufile 
call  cpfile; 

return; 
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end 


^ **************  ******************************************************* 

it 

it  INIIIM 

it 

jjf  ********************************************************************* 

it 

it  Initial  release  —  hn/6  november  79 
u  I.’AIiE: 

It  ini  tiro 

if  FUNCTION : 

It  create  the  inage  to  initialize  the  TT  Display 

it 

if  it  itit  it  it  it  it  it  it  it  it  it  If  it  it  it  it  It  it  it  it  itit  it  it  it  it  It  it  it  it  it  it  ihtit  it  It  it  it  it  it  It  it  it  it  it  it  it  it  it  it  Hit  it  it  it  it  it  it  If  it  It  it  it  it  It  if 


subroutine  initim; 

common  /blkl/inage,inagep,inopt,inoptp; 

integer*2  image(IMAGEL) , iraagep , inopt  (INOPTL,  ItJILAX)  , inoptp; 


it  ESC  E  —  Initialization 
£iroage(imagep)-27 ;  £  ESC 

£inagep«iuagep+l ; 
#image(inagep)«69 ;  it  E 

£inagep»imagep+l ; 


it  ESC  J  —  clear  screen 
It  inage  ( imagep )  »2  / ;  it  ESC 

j/inagep-inagep+l ; 

//image (imagep) -74;  it  J 

#imagep»iraagep+l ; 


it  ESC  )  B  —  define  character  set  B 
linage  (imagep) “2 7 ;  It  ESC 

#imagep»imagep+l ; 
linage  (imagep)  “41;  it  ) 

£inagep“imagep+l ; 

(/image (imagep) -66;  it  B 

£imagep“imagep+l ; 


it  Image  to  home  the  cursor  and  get 
it  rid  of  "TERMINAL  READY" 
inage(inagep)"27 ;  it  ESC 

imagep«imagep+l ; 
image  (imagep) -104;  It  h 

inagep«imagep+l ; 
inage(inagep)“27 ;  it  ESC 
inagep-imagep+i ; 


! 
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itnage(imagep)“75;  it  K 
imagep"imagep+l ; 


return; 

end 


£******************************************************** ************ 

# 

if  DELETE 

# 

t^*****************  **********************  ***************************** 

if 

it  IIAilE : 

#  delete 

#  FUNCTION : 

it  delete  an  entry  in  r.enu  directory 

#  ALGORITHM: 

it  whilefentries  in  directory) 

it  read  record  into  input  buffer 

ft  if  entry  was  already  found 

it  write  buffer 

if  else 

it  search  entry  in  buffer 

it  if  found 

it  delete  entry  in  buffer 

it  set  found  flag 

it  write  buffer 

it 

it  copy  rest  of  nenufile  to  cenuout 

it  copy  uenuout  to  cenufile 

it 


it  it  it  it  it  it  it  it  It  it  It  It  it  it  it  it  it  it  it  it  it  it  it  it  it  1‘  If  it  it  it  it  it  it  it  it  it  it  it  if  it  it  it  it  it  it  it  it  it  it  it  it  it  It  it  it  it  it  it  ii  it  it  it  it  it  it  it  it  it  it 


subroutine  delete; 

common  /blk4/menuid, ipredra; 
integer*2  nenuid( 10) , ipredc< 10) ; 

integer*2  buff(544),  dir(12,45),  irec, found; 
equivalence  (dir(i,l),  buff(l)); 

it  preset  data 

irec-1;  it  counter  for  records 

found«0;  0  found  flag  —  notfound 

0  set  END-OF-FILE  exit 
if (ierror (104)  !■  0)  goto  9999; 

#  search  directory  records 
while(irec  <■  IJDREC) 

{ 

read(LUMR, 1C00)  (buf f (i) ,i«l ,544) ; 
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1000  format (544al ) ; 

if  (found  --  0)  it  entry  not  yet  found 

{ 

k-1 ;  if  pointer  to  entries 

while (k<-45  &  found--0) 

{ 

1-1;  it  pointer  to  characters 

while(l<-10) 

{ 

if(menuid(l)  1“  dir(l,k))  break;  if  no  natch 

if(l>-10)  if  entry  found 

{ 

found* 1 ; 

for(i*l;i<*10;i*i+l) 

dir(i,k)-S240;  if  fill  in  'O', delete  entry 

> 

1-1+1 ; 

> 

k-k+1 ; 

> 

> 

write(LUMW, 1000)  (ouf  f  (i)  ,i-l  ,542) ;  if  write  record 

) 

if  copy  rest  of  menufile 
while(l>0) 

{ 

read (LUKR, 1000)  (buff (i) , i-1 ,544) ; 
write(LUMW,1000)  (buff (i) , i-1, 542) ; 

> 

9999  call  cpfile;  if  copy  back  from  rcenuout  to  cenufile 

return; 

end 


ijf  *********************  ******  *********************************  ********* 

# 

if  UPDATE 

if 

********************************************************************** 

if 

if  Initial  release  ~  hn/12  oct  79 
£  NAME: 

if  update(irec) 

#  CALLING  PROGRAM: 

it  menued 

it  FUNCTION: 

it  Determine  length  of  image  needed 

if  Generate  image  and  input  options  and  store  then 

if  in  the  menu  file  starting  at  record  irec 

#  INPUT  PARAMETER: 
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4  irec  -  record  number  in  menu  file  to  store  first  record 

It  NOTE : 

4  This  routine  is  responsible  that  all  menu  records 

if  are  copied  to  the  temporary  menu  file. 

if  ALGORITHM: 


if 

a 

t 

4 

if 

if 

if 


generate  header  (no  image  generation) 
while  there  are  more  text/question  blocks 
generate  a  block  (no  image  generation) 
close  the  input  file 
open  input  file  for  second  run 
generate  header 

generate  blocks  having  the  right  spacing 
write  records 
close  files 


Mmmtmmmimmtimtettt  if  #  #  4  a  4  a  if  a  4  a  a  4  t  t  if  a  if  #  it  a  if  a  it  #  #  a  4  a  s  if  4  /;  it 

subroutine  update(irec) ; 


integer*2  irec; 

common  /blki /image , imagep , inopt , inoptp ; 

integer*2  image ( IMAGEL ) ; 

integer*2  imagep; 

integer*2  inopt(INOPTL, INMAX) ; 

integer*2  inoptp; 

common  /blk2 / linen t ; 

integer*2  linent; 

common  /blk6/nblock; 

integer*2  nblock; 

common  /blk9/ispace; 

integer*2  ispace; 

integer*2  buff (80),  pl,p2,p3,p4,p5; 


4  preset  data 
ispace**G; 
lincnt»0; 
inoptp«l ; 
imagep*! ; 

if  generate  header,  read  number  of  blocks 
if  first  run  -  no  image 

pi-i; 

call  header (pi); 

4  generate  blocks,  first  run  -  no  image  - 
for(i«0;  i<»nblock;  i*i+l) 
call  block(pl); 

#  close  input  file,  open  again 
rewind  LUR; 

call  aetfiKLUR, 'infile  '); 


It  preset  data  for  second  run 

if (lincnt>20)  write(6, 19) ; 19  forraat('Too  nany  image  lines  needed') 

ispace“(LMARG-lincnt) / (nblock+1 ) ; 

lincnt  “  0; 

imagep*! ; 

inoptp«l ; 

pl*2;  It  second  run  —  generate  image 


#  clear  all  lines  of  the  multi  purpose  menu  field 
p2-l;  p3-LEFTM;  p4-t!0CH; 
call  poscur(pl,p2,p3,p4) ; 
f  or  (  i-1 ;  K-LHARG ;  i-i+1 ) 

{ 

image (imagep) “2 7 ;  If  ESC 
imagep*imagep+l ; 
image(imagep)“/5;  if  K 
imagep“imagep+l ; 
image (imagep) “2 / ;  H  ESC 
inagep-imagep+1 ; 
image  (imagep) -66 ;  It  B 
imagep“imagep+l ; 


if  (i— 10) 
( 


^separate  command  string 


image  (imagep)  “2 1 ;  It  ESC 
imagep“imagep+l ; 
image  (imagep)  *65;  li  A 
imagep-imagep+1 ; 
image  (imagep)  *36 ;  It  $ 
imagep“imagep+l ; 

} 


> 


If  update  directory  records, retrieve  data, store  it  in  nr 
call  upamr; 

if  dummy  read  of  function  code, menu  id, 

It  predecessor  menu  id,  menu  type 
read(LUR, 1000)  buff(l); 
read (LUR, 2000)  buff; 
read(LUR,2000)  buff; 
read(L0R,l000)  buff(l); 

1000  format(i3);  2000  f ormat(80al) ; 

It  generate  header  -image- 
call  header (pi); 

i t  generate  blocks  -inage- 
for(i“l ;i<“nblock;i“i+l) 
call  block (pi); 

it  write  records,  close  menu  file 
call  f inish(irec) ; 
return; 
end 
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^ ***************************************** **************************** 

it 

it  HEADER 

it 

# ******************************************************************* ** 

it 

it  Initial  release  --hn/12  oct  79 
it  NAME: 

#  header(inp) 

#  CALLING  PROGRAi-l: 

it  update 

#  FUNCTION: 

i  read  menu  title  and  nur.be r  of  blocks 

it  INPUT  PARAMETER: 

it  inp  -  1:  first  run,  no  image  generation 

it  2:  second  and  final  run 

it  ALGORITHM: 

it  clear  all  tabs 

it  position  cursor  to  first  line 

it  copy  text 

it  read  number  of  blocks 

it 

ItiUtuliltiHUHtitiHUtiiititiHrltititltltititititititiritlUtiUtltiHHfiHtititltlUtititi'iUHHHtlttiitititititiUtltitititltv 

subroutine  header(inp); 


common  /blk6/nblock; 
integer*2  nblock; 

common  /blkl / image, imagep , inop t , inoptp ; 

integer*2  image (IilAGEL) ,  imagep ,  inopt (It;OPTL,INMAX) ,  inoptp ; 

integer*2  inp; 
integer*2  pi, p2,p3, dummy; 


#  clear  all  tabs  —  ESC  3 
image  (imagep) -2  7;  It  ESC 

imagep-inagep+l ; 
image (imagep ) *5 1 ;  *  3 

imagep*imagep+l ; 

It  position  cursor  for  menu  title  and  copy  it 
pl-0;  p2-LEFTN;  p3-TEXT; 
call  poscur(inp,pl,p2,p3) ; 
call  copy (inp, dummy ) ; 

t  read  number  of  blocks  from  input  file 
read (LUR, 1000)  nblock; 
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1000  format (i3); 


return; 

end 


j********************************************************************* 

it 


it  BLOCK 

it 

4!********************************************************************* 

it 

it  Initial  release  —  hn/12  oct  79 
it  NAME : 

it  block  (inp) 

it  CALLING  PR0CRA11: 
it  update 

#  FUNCTIONS 

it  read  the  parameter  for  a  block  and  store  theta 

it  determine  positions  of  buttons 

it  draw  each  button  and  label  it 

it  INPUT  PARAMETER: 

it  inp  -  1:  first  run  -no  image- 

it  2:  second  and  final  run 

it  ALGORITHM : 

it  read  block  parameters 

it  copy  text/question 

it  determine  coordinates  of  buttons 

9  draw  each  button 

it 


9  it  it  it  C  it  it  it  it  it  it  it  it  it  it  it  It  if  it  it  it  it  it  it  it  it  it  it  it  it  it  It  it  it  it  it  it  1 t  it  it  it  it  II  it  it  it  it  it  it  It  it  if  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  H 


subroutine  block(inp); 


common  /blk2/lincnt ; 
integer*2  lincnt; 
common  /blk7/nbutt,iloc,isize; 
integer*2  nbutt.iloc.isize; 
common  /blk9/ispace; 
integer*2  ispace; 

integer*2  inp; 
integer*2  icode; 

integer*2  pl,p2,p3,is,ix,iy,ic,lbutt ,ltext; 


9  read  block-start-code 
9  if  not  present  write  error  message 
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read (LUR, 1000)  icode; 

1000  format (13); 

If (icode  !■  S BLOCK) 

{ 

write(LUW.lOO); 

100  format (lx, 'Uo  text  or  question  block'); 
return; 

> 

#  read  block  parameters 

else 

{ 

read  (LUR,  1000)  nbutt;  it  number  of  buttons 

read (LUR, 1000)  iloc;  #  location  of  buttons 

read (LUR, 100C)  isize;  it  size  of  buttons 

#  do  spacing  before  block 
is~ispace ; 

call  llnefd(inp,is) ; 

#  button  row  beside  text 
if (iloc  —  LOCB) 

( 

lbutt«isize+2; 
ltext-lbutt/2; 
ix-RHARGB ; 

iy-lincnt+lbutt-i -isize; 
idx* (isize+DELTA) *1 . 5 ; 
ix*ix-(nbutt-l)*idx; 
idy-0; 

> 

it  button  collunn  beside  text 
else  if (iloc  ■*  LOCC) 

{ 

lbutt“nbutt*(isize+DELTA)-DELTA+l ; 

ltext-lbutt/2; 

ix-RMARGC; 

iy *lincn t+lbutt-1 -isize; 
idx*0; 

idy-(isize+DELTA); 
iy**iy-(nbutt-l)*idy ; 

} 

if  button  row  under  text 
else  if (iloc  ■■  LOCA) 

< 

lbutt“isize+3; 
ltext“l ; 

ix“ (RMARGA+LEFTM-DELTA+nbu 1 1  * ( isize+DELTA ) ) /2; 

iy*lincnt+3; 

idx-(isize+DELTA)*1.5; 

ix“ix-(nbutt-l )*idx; 


If  copy  text 
ic  -  KODOilE; 

call  linefd(inp.ltext) ;  If  linefeed  to  start  of  text 
while (ic  —  NOPOKE) 

( 

pl«LEFTM;  p2«TEXT;  p3«lincnt; 
call  poscur(inp,p3,pl,p2) ; 
call  copy(inp.ic) ; 
pl-lbutt-ltext ; 
if  (ic— KODONE  L  iloc—  LOCA) 

( 

lbutt“lbutt+l ; 
iy-iy+1; 

> 

else 

call  linefd(inp,pl) ;  if  linefeed  below  text 

> 

0  draw  buttons 
for(k*l ;k<»nbutt;k*k+l ) 

( 

pl-isize; 

call  button(inp,pl,ix,iy); 

ix-ix+idx; 

iy-iy+idy; 

> 

> 


return; 

end 


^******* ******************************************************** ****** 

0 

0  FINISH 

0 

j(f*  ***********************************************************  ********* 
0 

0  Initial  release  —  hn/12  oct  79 
0  NAME: 

0  fini3h(irec) 

#  CALLING  PROGRAM: 

0  update 

0  FUNCTION: 


0  write  menu  records  onto  nenu  file 

0  INPUT  PARAMETER: 

0  irec  -  first  menu  record  on  file 

0  ALGORITHM: 

0  divide  image  store  into  record  size  pieces 
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H  if  image  pointer  within  a  piece,  store  Et.OOFI 

i It  if  image  pointer  within  or  at  the  end  of  a  piece 

It  store  E11D0FR 

It  write  record 

It  determine  last  entry  in  input  option  store 

It  store  menu  paraneter  and  ENDOFR 

i  write  record 

It 

ItitltitlltltltitltltltltitltltltltltittlliltitltltitltltititltltltltltitltititltltitltltltltlHUtlltHHHHHtitltiUtlUHtMilUtit 

subroutine  finish (irec) ; 


integer*2  imager,  Inputr,pl,p2,p3,p4,irec; 

corxion  /blk  1  / image ,  imagep ,  inop  t ,  inop t p ; 

integer*2  image  C  IWAGEL ) ; 

integer*2  imagep; 

integer*2  inopt  (ItiOPTL,It!iiAX) ; 

integer*2  inoptp; 

common  /blk2/lincnt; 

integer*2  lincnt; 

common  /blk8/mentyp,ipredr; 

integer*2  mentyp, ipredr ; 

common  /blkl3/mr,ptr; 

integer*2  mr(21 , 50) ,ptr ; 

common  /blkl4/highr ; 

integer*2  highr; 

integer*2  recent;  It  counter  for  written  records 

integer*2  save; 

integer*2  inputo(542); 

equivalence (inputo(l ) ,  inopt ( 1 , 1 ) ) ; 

If  temporary  buffer  for  records 
integer*2  rbuff(544); 

reccnt“i.'LREC;  It  preset  counter  (20  directory  records) 

H  save  first  record  numbers  for  image  and  input  options 
itr.ager*mr(21,irec) ; 
inputr»inager+I>'IREC; 


It  set  END-OF-INPUT  code 
image ( imagep ) “ENDOFI ; 
inagep“imagep+l ; 

It  shift  image  to  avoid  records  cutting  command  strings 

It  and  set  EhDOFR  in  last  image  record 
call  shift; 

It  set  label  for  END-OF-FILE  condition 
if (ierror(104)  !■  0)  goto  9999; 

It  copy  all  records  up  to  first  record  of  this  menu 
f or (k«iiDREC+l ;  k<imager;  k*k+l) 
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read (LUMR, 1000)  (rbuf f (ij ) , ij-1 , 544 ) ; 
write(LUlll/t  1000)  (rbuf  f  (ij ) ,ij-l ,  542) ; 

reccnt-reccnt+1 ; 

1000  f ormat (544al ) ; 

> 

if  write  image  records 

If  temporarily  substitute  the  last  character  to  ensure 
t  that  it  is  no  space. This  would  decrease  the 
#  fixed  record  length. 
for(ind-542; ind<-IMAGEL; ind-ind+540) 

( 

save-image ( ind ) ;  image (ind) -8240;  if  SP  '0' 
indbeg-ind-541 ; 

write(LUllU, 1000)  (inage(i) ,i-indbeg,ind) ; 
image ( ind ) -save ; 
reccnt-reccnt+1 ; 

> 


pl«mr(21,ipredr) ;  call  intasc(pl,p2,p3) ; 
inopt ( 1 , 29)-p2*256+p3; 
pl-mentyp;  call  intasc(pl,p2,p3); 
incpt(2,29)-p2*256+p3; 
pl-inoptp-1;  call  intasc(pl,p2,p3) ; 

inopt(3,29)-p2*256+p3;  if  number  of  options  (incl.  pern.b.) 
inop  t ( 1 5 , 29 ) -LNDOFR ; 


if  convert  integer  into  ASCII 
for (k-1 ;k<inoptp ;  k-k+1) 

{ 

for(kk-7;kk<-ll;  kk-kk+1) 

{ 

pl-inopt (kk,k) ;  call  intasc(pl,p2,p3) ; 
inopt (kk,k)-p2*256+p3; 

> 

> 

#  write  input  option  records 
write(LUliW,500)  (inputo(i),  i-1,271); 
reccnt-reccnt+1 ; 

write(LUllW,500)  (inputo(i),  i-271,541); 
reccnt-reccnt+1 ; 

500  format(271a2) ; 

if  copy  rest  of  menu  file 
6  if  done  goto  9999 
if (ierror(104)  !-  0)  goto  9999; 

#  dummy  read  over  old  menu  records 
ford-KIREC+NORCC;  i>0;  i-i-1) 

read (LUl!R,  1000)  (rbuff  (ij )  ,i  j-1,544) ; 
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iconst*l ; 
while(iconst«»l) 

{ 

read (LUMR, 1000)  (rbuf f (ij ) , ij-1 , 544) ; 
write(LUHW, 1000)  (rbuf f (ij ) ,i j-1 , 542) ; 
reccnt*reccnt+l ; 

> 

9999  while(highr  >  recent)  #  more  records  to  create 

( 

for(i*l ;i<*6;i«i+l) 

write (LU11W,  1000)  (rbuf f (ij ), ij-1 , 542) ; 
reccnt»reccnt+6 ; 

> 

call  cpfile;  it  copy  file  from  menuout  to  r.enufile 

return; 

end 


f/****************** *********************** **************************** 

if 

if  COPY 


********************************************************************** 

if 

if  Initial  release  --  hn/14oct  79 
if  NAME: 

if  copy(inp,if  lag) 

If  FUNCTION: 

if  copy  text  from  input  file  to  image  array 

if  INPUT  PARAMETER: 
if  inp  -  I:  do  not  copy 

if  2:  do  copy 

It  OUTPUT  PARAMETER: 

If  iflag  -  DONE:  '<?'  encountered,  end  of  text 

if  1J0D0NE:  not  yet  end  of  text 

if  ALGORITHM: 

if  if  inp  ■  1:  return 

it  preset  iflag  to  NODONE 

#  read  80  character  input  line 

0  if  'Q' 

if  set  iflag  to  DONE,  return 

it  if  'CR' 


if 

it 

If 


return 

copy  input  character  by  character 


itiiitiHHHfif  <i  it  H  It  If  if  if  it  if  if  if  if  it  if  if  if  it  ifif  it  it  if  It  It  v  it  it  if  If  if  if  It  if  if  it  If  if  it  if  it  it  it  it  if  it  it  it  it  it  it  if  it  if  it  it  it  It  it  it  if  it 


subroutine  copy (inp, if lag) ; 


162 


integer*2  inp,iflag,ichar,pl; 

cotmaon  /blkl /image , imagep , inop t , inop tp ; 

integer*2  image  ( IhAGEL ) ; 

integer*2  imagep; 

integer*2  inopt(INOPTL,IL<’MAX) ; 

integer*2  inoptp; 

common  /blk5/ibuff; 

integer*2  ibuff (80); 


If  preset  output  flag 
iflag-NODGNE; 

It  read  input  line 
read(LUR, 100)  ibuff; 

100  f ornat (80al ) ; 

It  copy  characters,  break  if 
ichar-8256;  It  SP.'@' 
pi-i; 

for(i*l;  i<»80;  i*i+l) 

{ 

if  (ibuff  (i)«- ichar)  It  SP.'(?' 

{ 

if lag-DONE; 

call  linefd(inp,pl) ; 
return; 

> 

if  (ibuff  (i)—  8205  |  ibuf  f  (i)~  8316)  It  SP.CP.  or  |  (end  of  line) 

( 

call  linefd(inp,pl) ; 
return; 

> 

else  if(inp  !=  1)  { 
image ( imagep ) =ibuf  f ( i ) ; 
imagep»imagep+l ;  > 


return; 

end 


j)f**  ********************  ******************  *****  **  ****  ***********  *  *  ***** 

it 

It  L  I  H  F  D 

It 

^ ******* ************ ********** **************************************** 

It 

It  Initial  release  —  hn/14  oct  79 
#  NAME : 
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if  linefd(inp,nun) 

If  FUNCTION : 

It  generate  display  connands  for  line  feed/  carriage  return 

if  INPUT  PARAMETER: 

I!  inp  -  1:  do  not  generate,  only  update  lincnt 

it  2:  generate  line  feeds,  update  lincnt 

if  nuu  -  number  of  line  feeds 

it  ALGORITHM: 

it  update  lincnt 

it  if  inp  ■  1  return 

it  generate  linefeeds,  carriage  return 

if 


if  ititifit  it  Hit  it  itit  it  it  it  itifit  if  Hit  ii  It  ifttttif  it  it  if  if  it  It  It  ififit  it  it  itititit  it  it  It  it  it  itlfit  if  it  itit  it  it  i‘  it  it  if  if  it  If  if  ifitiiii  it 


subroutine  linefd  (inp, nun) ; 


integer*2  inp, nun; 
common  /blk2/lincnt ; 
integer*2  lincnt; 

lincnt “lincnt+nun; 

if(inp**,l)  return;  II  no  inage  generation 

call  crlf; 

return; 

end 


********************************************************************** 

it 

it  POSCUR 

if 

********************************************************************** 

»/ 

It  Initial  release  —  hn/14  oct  / 9 
It  NAME: 

if  poscur(inp, irow, icol, icode) 

it  FUNCTION: 

It  position  the  cursor  and  switch  to  requested  node 

if  INPUT  PARA]  JETERS : 

It  inp  -  1:  do  nothing 

it  2:  do 

It  irow  -  row  number 

it  -1  if  only  collurn  change 

it  icol  -  collumn  number 

it  -1  if  only  row  change 

it  if  both  irow  and  icol  »  -1,  only  change  mode 

it  icode  -  new  mode 

it  BUTT  -  Alternate  character  set  (lines) 

it  TEXT  -  Ease  character  set 

it  NOCli  -  No  change,  leave  old  character  set 

it  ALGORITHM: 
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if 

it 

If 

it 

it 


if  inp“l  return 
if  new  node  !■  NOCH 

switch  to  new  node 
position  cursor 


if  it  it  it  it  it  tt  it  ti  it  it  it  if  it  it  if  it  it  it  if 


if  if  it  it  it  it  it  if 


it  it  It  it  it  it  it  it  if  it  it  it  it  tt  it  it  it  it  it  it  it  it  it  it  it  it  if  it  1/  it  it  i it  tt  it  it  if  it  it  if  it  if  it 


subroutine  poscur(inp, i row, icol, i code) ; 


integer*2  inp.irow, icol.icode; 

cocunon  /blk 1 / image , irnagep , inop  t , inop tp ; 

integer*2  image  (I11AG EL )  ; 

integer*2  imagep; 

integer*2  inopt (INOPTL, IKMAX) ; 

integer*2  inoptp; 

cocxion  /blk3/mode; 

integer*2  mode; 

conraon  /blklO/rowcur ; 

inteper*2  rowcur; 

integer*2  irovmv(6); 
integer*2  icolnv(6); 
integer*2  ircnv(9); 

it  ESC  &  a _ R 

data  irov;nv(l )  /2 7  / ; 
data  irowr.v(2) /38/; 
data  irownv(3) /9 7 / ; 
data  irowuiv(4) /32 / ; 
data  irowmv(5) /32/; 
data  irowiav(6) /32 / ; 

it  ESC  &  a _ r _ C 

data  irctr.v(l )  /2 7 / ; 
data  ircnv(2 ) /38/; 
data  ircnv(3) /9 / / * 
data  ircnv(4) /32/; 
data  ircnv(5)/32/; 
data  ircmv (b) /I 14/ ; 
data  irct.iv(/)/32/; 
data  ircmv(8) /32/; 
data  ircnv(9)/67/; 

it  ESC  &  a _ C 

data  icolmv(l) /2 7 / ; 
data  icolnv(2) /38/; 
data  icolnv(3) /9 //; 
data  icolmv(4) /32 / ; 
data  icolnv(5) /3 2 / ; 
data  icolmv(6) /6 7 / ; 

if(inp  mm  1)  return; 


It  move  only  row 
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if(icol  -1  &  irow  !■  -1) 

{ 

irownv(4)  ■  irow/10+48;  it  * 0 ' 

irowmv(5)  ■  r:od(irow,  10)  +  48;  it  *C" 

for(i*l;  i<»6;  i«i+l) 

{ 

inage (imagep)  ■  irownv(i); 
inagep*inagep+l ; 

> 

it  save  row  of  cursor 
rowcur-irow; 

> 

it  move  only  col 

else  if (irow  ««  -1  &  icol  !■  -1) 

{ 

icolmv(4)  »  icol/10  +  48;  it  'O' 
icolmv(5)  ■  mod  (icol  ( 10)  +  48;  it  '0' 

for(i»l;  i<»6;  i*i+l) 

{ 

inage(inagep)  *  icolnv(i); 
imagep“imagep+l ; 

> 

> 

it  nove  row  and  col 
else  if(icol  !*  -1  &  irow  !«  -1) 

{ 

It  separate  connand  string 
if (rov;cur<23)  call  crlf; 
ircinv(4)  •  irow/10  +  48;  it  '0' 
ircnv(5)  -  nod  (irow,  10)  +  48;  it  '0' 

ircnv(7)  -  icol/10  +  48;  it  'O' 
ircnv(8)  -  mod(icol,  10)  +  48;  it  '0' 

for(i*l;  io9;  i«i+l) 

( 

inage(inagep)«ircnv(i) ; 
inagep-imagep+l ; 

> 

it  save  row  of  cursor 
rowcur*irow; 

> 

it  change  node  if  necessary 
if  (icode  1-  tIOCH) 

{ 

inage (inagep)  ■  icode; 
inagep-inagep+1 ; 
node  ■  icode; 

> 

return; 

end 
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, JS******* ************************************************* ************* 

it 

it  BUTTON 


&  ********************************************************************* 


it 

It  Initial  release  —  hn/  14  oct  79 
it  NAME: 


v  button(inp,isize,ix,iy) 

It  FUNCTION: 

it  read  additional  button  information  and  store  it  in  inopt 

If  initiate  drawing  of  the  buttons 

it  INPUT  PARAMETERS: 


it 

it 

if 

it 

It 

Ji 

y 

it 

it 

it 

it 

it 

H 

V 

it 

it 

It 

it 

Jl 

V 

it 

it 

it 

it 

# 

it 

it 

it 

it 


inp  -  l:do  not  draw  buttons 
2:  do  everything 

isize  -  size  of  the  buttons  to  draw  (number  of  lines) 
ix  -  collutn  number  of  rigth  upper  corner 
iy  -  row  number  of  rigth  upper  corner 
ALGORITHM: 

read  start-of-response  code 
if  not  there,  write  error  message 
read  and  store: 
label 

plain-English  mesage  for  logging 
action  code 
if  display-new-nenu 
read  menu-id 

get  first  record  number  of  menu 
store  record  number  in  inopt 
if  return-character 

read  character  and  store  it 
if  return-integer  or  return-task-id 
read  integer  and  store  it 
if  paraoeter-block-update 
#+++++++  do  not  know  yet 
if  inp  ““  2 

store  button  coordinates 
create  button  images 
increment  pointer  in  inopt 


subroutine  but  ton (inp, size, ix, iy) ; 

integer*2  inp, size, ix, iy,ichar , irec; 
integer*2  pl,p2,p3; 


common  /blkl /image, imagep, inopt , inoptp ; 
integer*2  image (IMAGED ; 


integer*2  imagep; 

integer*2  inopt(IUOPTL,IKttAX) ; 

integer*2  inoptp; 


common  /blk4/tnenuid, ipredn; 
integer*2  menuid(lO); 
integer*2  ipredm(lO); 

common  /blk5/ibuff; 
integer*2  ibuf f (IBUFFL) ; 

integer*2  icode;  #  temporary  storage 

if  input  buffer  40  words 
integ.er*2  iwbuff(40); 

ichar-8256;  it  SP.'@' 

If  read  start-response  code 
read (LUR, 1000)  icode; 

1000  f ormat ( i 3) ; 
if (icode  !«  SRESP) 

{ 

write(LinJ.lOO); 

100  format ( lx, 'No  response  to  read'); 
return; 

> 

else 

{ 

if  read  label  and  store  it 
read (LUR, 200)  ibuff; 

300  f ormat (40a2) ; 

inop t( l, inoptp)  *  ibuff (1); 

it  read  plain-English  message  and  store  it 
read (LUR, 300)  ivbuff; 
for(i«2;  i<*6;  i-i+1) 

{  if (iwbuff (i-l)--ichar)  break; 
inopt(i, inoptp)  ■  iwbuff (i-1);  ) 

if  read  and  store  action  code 
read (LUR, 1000)  iact; 
inopt( 11, inoptp)  *  iact; 

it  display-new-menu 
if (iact  —  1) 

( 

if  read  menu-id  and  store  it 
read (LUR ,200)  ibuff; 

200  format(80al) ; 
for(i-l;  i<-10;  i-i+1) 

ipredn(i)“0240;  if  SP.'O' 

i-i; 

vhile(i<-10  &  ibuff (i)!-  ichar) 
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{  ipredn(i)“ibuff (i) ;  i*i+l;  > 
if  (inp»l) 

{  pl-PREDL; 

call  setnen(pl,irec) ;  }  ft  set  menu  record  number 
else  {  call  ^etcen(irec) ; 

pl*irec;  call  intasc(pl,p2,p3); 
inopt (12 , inoptp )  ■  p2*256+p3;  ft  store  record  number 
> 

> 

ft  return-character 
else  if(iact  2  |  iact  ■■  4) 

( 

read  (L(JR,  300)  iwbuff; 
inopt(12, inoptp)  ■  iwbuff(l); 

> 

ft  Integer  or  task-id 
else  if (iact  3  |  iact  14) 

{ 

read (LUR, 1000)  pi 

call  intasc(pl,p2,p3) ; 
inopt (12, inoptp )"p2*256+p3; 

} 

ft  mill  pb  change,  do  not  yet  know 
else  if  (iact  **»  15) 

( 

cont inue ; ft t t l t  do  not  know 

> 


ft  draw  buttons 
if(inp  ""  2) 

( 

inopt(7 , inoptp)  ■  ix+l-size*1.5; 
inopt(8, inoptp)  -  iy-l+size; 
inopt(9, inoptp)  *  ix; 
inopt(10, inoptp)*  iy; 

call  draw; 

) 

inoptp“inoptp+l ; 

> 

return; 

end 


ft  ********************************************************************* 
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it  DRAW 

# 

******** ** ************ ************** *** A* *************** ************* 

# 

V  Initial  release  --hn/  15  Oct  79 
it  HAKE: 

H  draw 

it  FUNCTION: 


it  create  image  to  draw  a  button 

it  ALGORITHM: 

it  clear  all  tabs 

it  set  tab  at  right  button  margin 

it  set  tab  at  left  button  margin 

it  position  cursor  to  left  upper  corner 

it  while  more  lines 

it  enhance  line  within  tabs 

it  tab  to  beginning  of  next  line 

it  tab  to  left  limit  of  button 

it  draw  label 

it 

ititititltitititititititiiitiiitititifititititltifttiittitititititjlititititltiti'ititltitittititititititititititttiiifiHtititiHtititiHt 

subroutine  draw; 


integer*2  pl,p2,p3,p4,iy,ir,ic; 

common  /blk 1 /image , imagep , inop  t , inop tp ; 

integer*2  image ( IMAGEL ) ; 

integer*2  imagep; 

integer*2  inopt(INOPTL, INMAX) ; 

integer*2  inoptp; 

common  /blklO/rowcur ; 

integer*2  rowcur; 


integer*2  icltab(2); 
integer*2  endenh(4); 

#  ESC  3 

data  lcltab(l)/27/; 
data  icltab(2)/51/; 

#  ESC  &  d  @ 
data  endenh(l) /2 / / ; 
data  endenh(2) /38/; 
data  endenh(3) /100/ ; 
data  endenh(4)/64/; 


it  clear  all  tabs 
it  end  of  enhancement 


call  crlf; 


separate  command  string 


it  clear  all  tabs 
for(i»l;  i<«2;  i«i+l) 


image(imaBep)*icltab(i) ; 
inagep*imagep+l ; 

} 


it  sec  right  tab 
pl»inopt(9,inoptp)+l ; 
call  settab(pl); 

#  sane  for  left  nargin 
pl“inopt(7,inoptp) ; 

call  settab(pl); 

it  save  upnost  line  of  button 
iy*inopt(10,inoptp) ; 

it  draw  enhancement  for  button 
while(iy  <-  inopt(8,inoptp)) 

{ 

it  position  cursor  to  upper  left  corner,  change  mode 
p4«2;  p3*BUTT; 
call  poseur (p4,iy,pl,p3) ; 

call  enhanc; 
call  tab; 

for(i“l ; i<*4; i*i+l )  It  end  of  enhancement  command 

< 

iiaage(imagep)*endenh(i) ; 
inagep«inagep+l ; 

) 

iy-iy+1 ; 

> 

11  draw  label 

ic  *  (inopt(/,inoptp)+inopt(9,inoptp))/2; 
ir  *  (inopt(8,inoptp)+inopt(10,inoptp))/2; 

if(ic<«12)  return;  II  no  label  for  permanent  buttons 

pl-2;  p2-TEXT; 

call  poscur(pl,ir,ic,p2) ; 

#  copy  label 

image ( imagep ) «inop t ( 1 , inop tp ) ; 
iragep“imagep+l ; 

image (imagep )"inopt (I .inoptp) /256; 
imagep“imagep+l ; 

return; 

end 


^t************* ************************************************* ******* 

it 


m 


S  E  T  T  A  B 


it 


;/********************************************************************* 

it 

it  Initial  release  — hn/  15  oct  79 

it  IIAhE: 


settab(icol) 

FUNCTION: 

position  cursor  to  specified  collunn 
set  tab 
ALGORITHM: 

move  cursor  to  collunn 
set  tab 


it 

a 

it 
t 
it 
it 
# 
it 

It  it  if  if  it  it  It  itit  It  it  If  it  it  itir  it  it  if  if  it  it  it  0  it  it  it  it  it  It  it  1r  if  it  if  if  it  it  it  it  it  it  it  it  it  it  It  it  it  it  it  it  it  it  it  ir  if  it  it  it  it  it  it  it  it  it  it  it  it  it 


subroutine  settab(icol) ; 


integer*2  icol,pl,p2,p3; 

common  /blk 1 /image , imagep , inop t , inop tp ; 

integer*2  image ( IMAGEL ) ; 

integer*2  imagep; 

integer*2  inopt (INOPTL, INMAX) ; 

integer*2  inoptp; 

p 1*2;  p2*-l;  p3“N0CH; 

call  poscur(pl,p2,icol,p3) ; 

image (imagep ) “ESC ; 

imagep-imagep+1 ; 

image  (imagep)  “49;  It  '1# 

imagep“iir.agep+l ; 

return; 

end 


jf  ***********************  ***  *********************  *********  *****  ******** 

t 

it  TAB 

it 

jjf  ************************************  ********************************* 

it 

if  Initial  release  —  hn/  15  oct  79 
it  NAME: 

#  tab 

it  FUNCTION: 

It  generate  tab 

if 

it  #<t  it  it  It  it  it  it  it  it  if  It  it  it  it  it  it  it  it  it  It  It  It  it  It  it  It  it  if  it  Hit  It  it  it  it  it  it  it  it  it  it  It  it  it  it  it  it  it  it  it  iW  it  it  Wit#  it  itit  it  it  it  Mit 


subroutine  tab; 
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common  /blkl /image , imagep , inop t , inop Cp ; 
integer*2  image ( I&AGEL ) ; 
integer*2  imagep; 
integer*2  inop  t  ( INOPTL , INilAX) ; 
integer*2  inoptp; 

image ( imagep ) "ESC ; 

inagep“imagep+l ; 

image (imagep) “7 3;  #  'I' 

imagep*inagep+l ; 

return; 

end 


******************************  ******  ***  *****************  * ************* 

it 

it  E  N  H  A  N  C 


it 

**  *************  ******  *  ******************  **************  ************** 

it 

it  Initial  release  — hn/  15  oct  79 
it  l.‘Ai*E: 

it  enhanc 

it  FUNCTION : 


it  start  enhancement  for  button  (inverse  video, half  bright) 

It 


it  itit  it  itit  it  It  it  it  if  it  It  it  it  it  it  it  it  it  it  it  Hit  it  it  it  it  it  it  it  It  it  it  it  it  it  it  it  it  it  if  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  It  it  it  it  it  it  it  it  it  it  ftiflt 


subroutine  enhanc; 


common  /blkl /image , imagep , inop t , inop tp ; 
integer*2  image (I1IAGEL) ; 
integer*2  imagep; 
integer*2  inopt ( INOPTL,  Itd!AX) ; 
integer*2  inoptp; 

integer*2  ienh(A); 

#  ESC  &  d  J 
data  ienh(l)/27/; 
data  ienh(2)/38/; 
data  ienh(3)/10C/; 
data  ienh(4)/74/; 

for(i-l;  i<«4;  i-i+1) 

( 

image(imagep)"ienh (i) ; 
inagep*imagep+l ; 

> 
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return; 

end 


ft ********************************************************  is  It  it  it  it  it  it  it  it  it  It  ** 

# 

if  INTASC 

a 

ft*****************************  it  irk  it  it  It  irk  ******  ***************  irk*  Hit*  irk  it  4th 

if 

if  Initial  release  —  hn/31  October  79 
if  NAME: 

If  intasc(inp,outl,out2) 

if  FUNCTION: 

If  Conversion  of  an  integer  (0-900)  into  two  integer*2  ASCII  codes 

if  ALCORITHM: 

if  outl*  inp/30  +40  (range  ASCII  40-70) 

(  out2“  iaod(inp,30)  +40  (range  ASCII  40-69) 

If 

*ff*mt$9mi*meiiu*mifMiiiiMMmiHimiitmii9iHfmMiHf3*tmiif 

subroutine  intasc(inp,outl , out2) ; 

integer*2  inp,outl,out2; 
integer  nunl,nur:2; 

nunl«inp; 

outl"inp/30+40 ; 

nun2«nod(nunl , 30) ; 

out2«num2+40; 

return; 

end 


****************************************************************  ***'** 
if 


if 


A  S  C  I  N  T 


if 

/?********************************************************************* 

If 

if  Initial  release  —  hn/31  October  79 
if  NAME: 


it  ascint(inl  ,in2,outp) 

if  FUNCTION: 

if  Conversion  of  an  ASCII  coded  nut.bcr  (0-900)  into 

8  an  integer*2  value 

8  ALGORITHM: 

8  outp-  (inI-40)*30  +  (in2-30) 

t 

8888888#8itit888888it8>tiHtit88IHf8888it88t!ih/fiHtiHHt8ii8iHt8if8!t8888itiHHtit8ititltl‘ii88 
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1 


it  FUNCTION: 

if  shift  the  contence  of  the  inage  array  to  prevent 

if  separation  of  a  connand  string  by  any  record 

if  place  ENDOFR  into  last  used  record 

if  ALGORITHM: 

if  while(inage  fills  another  record) 

if  start  at  end  of  record  and  search  CR/LF 

if  if  found  compute  difference  to  end  of  record 

if  shift  rest  of  image  by  the  difference 

if  place  ENDOFR  into  last  used  record 

it 

if  if  #  if  if  if  if  If  if  it  ifit  if  if  it  if  if  if  if  if  if  If  if  S  if  if  it  it  if  if  if  if  t  if  if  it  if  If  it  it  it  It  if  if  It  if  if  it  if  IfititiHfitiHf  if  if  if  if  it  if  if  it  if  it  if  it 

subroutine  shift; 

common  /b lk 1 /image, inagep, inop t, inop tp; 
integer*2  image (IMAGED , inagep; 
integer*2  ind.diff; 

if  check  all  record  itens 
f  or  ( ind-540 ;  indcimagep ;  ind-ind+540 ) 

{ 

for (index-ind;index>0;  index-index- 1) 

{ 

if (im.age(index)--ENDOFI)  break;  i/end  of  input 
if  (image (index ) “36 )  if  $  (CR  LF) 

( 

dif f »ind-index; 
imagep-imagep+dif f ; 
f or (i«imagep ; i>ind ; i-i-1 ) 
image (i) -image (i-diff); 
image (index+1 )-EMDOFI ; 
break; 

> 

> 

> 


If  store  ENDOFR 
image (ind) -ENDOFR; 
return; 
end 


# 

it  S  A  V  E  N  R 

if 

********** ******************************** *  <************************* 

it 

it  Initial  release  --  hn/3  november  79 
if  NAME: 

it  savemr(index) 

if  FUNCTION: 

if  store  old  and  new  menuids  (idold, idnew)  into  nr  and 


176 


if  return  the  index  in  nr 

#  OUTPUT  PARAMETER: 
it  index  -  index  in  nr 


ir 

if  if  if  if  If  Hit  if  if  ft  it  it  if  if  it  it  it  it  it  It  it  it  it  it  if  if  it  it  it  it  it  it  it  it  if  it  it  ir  it  it  it  Hit  it  it  if  it  it  it  it  It  it  it  it  it  it  it  If  it  if  it  If  it  it  it  it  if  it  if  it 


subroutine  savenr( index) ; 

integer*2  index; 

common  /blkl2/idold,idnew; 

integer*2  idold(lO),  idnew(lO); 

common  /blkl3/mr,ptr ; 
integer*2  mr (21 , 50) ,ptr ; 

for  (i“l ;  iolO;  i*i+l ) 

{ 

mr(i ,ptr)«idold  (i) ; 
mr(i+10,ptr)*idnew(i) ; 

> 

index**ptr ; 
ptr»ptr+l ; 
return; 
end 


jjf  *  ****  ***  *  **  ************  *  ***********  ********  **  ***************  a  ******** 

It 

it  CETBE  N 

it 

//  ★  *  *  *  *  *  *  *  *  *  irk  'k  *  *  -k  *  *  ★  *  *  *  ***  *  ★  "k  *  **  *  *  *  *  *  *  *  **  *  *  *★  *  *  **  *  ★  *  *  ■frit  *  *  *  *  *  it  *  *  *  *  *  * 

it  Initial  release  hn/3  novenber  79 
It  NAME; 

it  getr.en(irec) 

it  FUNCTION: 

H  get  the  menu  record  nunber  for  a  menu 

H  whose  menuid  is  in  ipredn 

H  OUTPUT  PARAMETER: 

*  irec  —  record  nunber  of  first  menu  record 

i 

«#»f###|l##l#####«###############f##»#######################f  ######## 

nitroutine  getcen(irec) ; 
irt*rer*2  irec; 

—rr  'blki/nenuid,  ipredn; 

<•  •r*Z  rcnuid(lO),  ipredn(lO); 

•  '  •  1 :/rr,ptr; 

■  >  r<  Z  I ,50) ,ptr; 

••  «  t  r  -  r 
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while(i<ptr  &  irec*-0) 

{ 

j-11;  It  index  for  first  character  of  nenuid 
while (irec““0  &  j<*20) 

{ 

if(rar(j,i)  !■  ipredr.(  j — 1 0 ) )  break 
else  if(j>«20) 

{  irec«nr(21,i) ;  break;) 
else  J-j+1; 

> 

i-i+1; 

> 

return; 

end 


j)******* *********  ***************** *******************  ****** *********** 


it  UPDNR 

If 

j/********************************************************************* 

If 

it  Initial  release  —  hn/3  ncvenber  / 9 
if  NAME: 


It  updnr 

If  FUNCTION: 

It  read  all  menu  directory  records  fron  renufile  and  write 

If  then  to  nenuout 

It  retrieve  record  nunbers  for  menuid's  stord  in  r.r 

it  and  store  then  in  nr. 

If  ALGORITHM: 

it  open  files  for  read  fron  renufile,  write  to  nenuout 

it  while  there  are  nore  directory  records 

If  read  a  record 

If  for  all  entries  in  record 

if  conpare  it  with  nr  entry 

If  if  found  store  record  number 

If  update  directory  record  (new  menuid  &  rec  number) 

If  if  still  entries  in  nr 

It  create  new  entries  in  directory 

if  write  record  to  nenuout 


ititihfitiflUlififihtititltltlUtlfit  It  if  if  II  It  if  if  it  if  It  it  it  If  if  If  if  If  if  i!  It  It  it  If  II  If  if  If  It  it  it  it  If  l‘  It  it  It  V  It  it  It  it  It  if  I!  it  it  It  it  It 


subroutine  updnr; 


common  /blkl3/mr,ptr; 
integer*2  mr(21,50),  ptr; 
common  /blkl4/highr ; 
integer*2  highr; 
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common  /blkl5/ifunct; 
integer*2  ifunct; 

integer*2  rbuff(544),  dir(12,45),  pl,p2,p3; 
equivalence  (rbuff (1) ,dir(l,l)) ; 

write(6 , 13) ; 13  f ormat ('updmr:  '); 

it  close  and  open  files 
call  coffwd; 

if (ierror (104)  !-  0)  goto  9999;  t  if  END-OF-FILE 
icount«ptr-l ;  it  number  of  entries 

highr*0;  it  preset 

for(i**l  ;i<*!IDREC;  i“i+l)  t  for  all  directory  records 

{ 

read (LUHR, 100)  (rbuf f (k) ,k-l , 544) ; 

100  format (544al) ; 

if (icount !*0)  { 

for( j-1 ; j<»45; j»j+l)  it  for  all  record  entries 
{ 

if  (dir  (l,  j)  "***3240)  it  first  empty  entry 
( 

f or (k«l ;k<ptr;k*k+l) 

{ 

if (mr(21,k)««0) 

{ 

if  ( (k— 2&  (if  unct— CREATE  |  ifunct-«It:iTH) )  | 

(k!-2  &  dir(ll.j)— 3240  &  dir(12, j)«=8240)) 

{  f or (kk-1 ;kk<-10;kk“kk+l ) 

mr(kk,k)»8240;  it  old  id's  now  empty 
break;  it  only  blank  the  next  one 

> 

> 

> 

> 

for(n«l;n<ptr;n«n+l)  it  for  all  mr  entries 

{ 

for(l*l;l<"10;l"l+l)  it  for  all  characters  of  menu-id 

{ 

if (mr(21,n) !«0)  break;  it  if  record  nunber  found 
if  (mr(l,n)  !•■  dir(l,j))  break  #char  dont  match 
else  if(l*“10)  it  menuid  found 

{ 

for(ll*l;ll<-10;ll“ll+l)  it  copy  new  menuid 
dir (11, j)«mr ( 11+10, n) ; 

p3*NDREC+l+(  ( i— 1 )  *45+j-l )  * (NIREC+h’OREC ) ;  it  rec  nunber 
if(p3>highr)  highr"p3; 
mr(21 ,n)«p3; 

call  intasc(p3,pl,p2) ;  it  convert  into  ASCII  coded 

dir(ll,j)-pl;  dir(l2,j)-P2; 
icount-icount-1 ; 

> 
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> 

> 

> 

> 

write (LUllU, 200)  (rbuff  (k)  ,k-l ,  542) ; 

200  format (542al ) ; 

> 

9999  if(icount>C) 

{ 

write(LUW, 777) ;  stop;  If  not  all  menu  names  found 

if  error  condition 

7 11  formatC'  Not  all  menus  found  .check  input  —  stop') 

} 

return; 

end 


ISO 


LEWU  CHECKER  PROGRAM 


*********** ******** **** ************** ******************************** * 

{*  * 

j?  1.  I!  C  H  E  C  K 

it  * 

#** ************************************************************* ****** 

# 

#  Initial  release  --  hn/1  Oct  79 
f/  NAME: 

if  mcheck 

it  FUNCTION : 

ft  print  image  of  a  menu 

ft  print  input  options  of  a  menu 

ft  print  directory  records 

ft  CALLING  PROGRAM: 
ft  Ii.T-11 

If  INPUT: 

If  text  file  with  all  needed  information  having  the  format 

ft  described  below. 

ft  NOTES: 

If  This  is  an  off-line  program. 

ft  It  interprets  a  standard  input  in  certain  format. 

ft  Input  may  be  files  or  any  input  device.  Each  line 

ft  of  input  has  to  be  in  the  following  formats 

ft  (  line  number  ): 

ft 

ft  (1)  :  function 

ft  6  ■  primag  -  print  image  of  a  menu 

ft  1  *  propt  -  print  input  options  of  a  menu 

ft  5  ■  prdir  -  print  directory  records 


ft  The  following  formats  will  depend  on  the  functions. 

ft 

ft  for  all  input  files: 
ft  (1)  :  function  code 

ft 

ft  for  primag, propt 

ft  (2)  :  menu-id  (10  character) 

ft 


ft  ftftftft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  It  ft  ft  ft  ft  ft  It  ft  ft  if  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  I!  ft  ft  ft  ft  ft  ft  ft  I!  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft 


define 

LUK 

5 

ft 

logical  unit  for  read 

define 

LUU 

6 

ft 

logical  unit  for  write 

define 

LUf.R 

/ 

ft 

logical  unit  for  menu  file  read 

define 

LULU 

8 

ft 

logical  unit  for  menu  file  write 

define 

LUTTD 

4 

ft 

logical  unit  display 

define 

NDREC 

20 

ft 

number  of  directory  records 

define 

t.IREC 

4 

ft 

max  4  records  for  image 

define 

tiOREG 

2 

it 

max  2  records  for  input  options 

It  function 

codes  : 

£rou  Input  file 

define 

PREDtl 

C 

it 

find  a  menu  id  in  directory 

# 

(  id  In  ip  redtn) 

define 

DELETE 

1 

9 

delete  menu  id  in  directory 

define 

CREATE 

2 

‘i 

V 

insert  a  new  menu  id  in  directory 

define 

UPDATE 

3 

,‘i 

it 

find  a  menu  id  in  directory 

9 

(id  in  menuid) 

def  lne 

SL'CCM 

4 

it 

find  menuid  of  successor  menu 

define 

PRINTD 

5 

if 

print  the  contents  of  directory 

define 

PUIHTI 

6 

if 

print  image  of  a  menu 

define 

PR INTO 

7 

9 

print  input  options  of  a  menu 

define 

INITM 

8 

it 

create  the  initial  menu 

9  code 

for 

button 

locations 

define 

LCCA 

1 

it 

button  row  below  the  text 

define 

LCCS 

2 

it 

button  row  beside  text 

define 

LOCC 

3 

it 

button  collumn  beside  tex 

it  symbolic  names 

for  fixed  margins 

define 

LEFTM 

8 

it  left  margin  of  menu  field 

define 

LEFTP 

2 

it  left  margin  of  permanent  buttons 

define 

LliARC 

20 

it  lower  margin  of  menu  field 

it  right 

margins 

for  button  rov;s/collumns 

define 

R1IARCA 

78 

it  button  row  below  text 

define 

RIIARC-B 

78 

if  button  row  beside  text 

define 

RI-iARGC 

78 

it  button  collunn  beside  text 

define 

DELTA 

2 

it 

free  rows/coll  between  buttons 

define 

ItlACEL 

2432 

if 

image  storage  length  (bytes) 

define 

IKOPTL 

15 

it 

word  length  for  each  input  option 

define 

iniiax 

37 

if 

max  number  of  input  options 

define 

IBUFFL 

80 

if 

input  buffer  length 

define 

ENDOFI 

8316 

it 

code  for  end-of-input 

define 

ENDOFR 

8318 

it 

code  for  end-of-record 

define 

TEXT 

15 

if 

code  for  text  mode 

define 

BUTT 

14 

it 

code  for  line  mode 

define 

SBLOCK 

126 

it 

code  for  start-text/question-block 

def ine 

SRESP 

127 

it 

code  for  start-response-block 

it  symbolic  input 

parameter 

define 

DONE 

1 

if 

done 

define 

KODCIIE 

0 

it 

not  yet  done 

if  ASCII 

character 

define 

ESC 

27 

i 

ESC 

define 

COUTAO 

15 

it 

CONTROL  0 

define 

contrn 

14 

It 

CONTROL  IJ 
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if  input  buffer 
integer*2  ibuf f (IBUFFL); 

if  storage  for  nenu-id 
integer*2  menuid (10) ; 

v  storage  for  menu-id  to  lookup  in  directory 
integer*2  ipredm(iO); 

H  storage  for  image 
integer*2  image ( IMAGEL ) ; 

if  storage  for  input  options 
integer*2  inopt  (IUOPTL.IIINAX) ; 

if  pointer 

integer*2  imagep  if  next  free  entry  in  image 

integer*2  inoptp  if  next  free  entry  in  inopt 

it  next  line  to  write  on  display 
integer*2  lincnt; 

it  display  mode 
integer*2  node; 

If  function  code 
integer*2  ifunct; 

integer*2  idold(lO);  if  menuid  to  find  in  directory 

integer*2  idnew(lO);  if  menuid  to  store  in  directory 

if  menu  parameter 

integer*2  nblock;  if  number  of  text/question  blocks 

integer*2  nbutt;  it  number  of  buttons  for  a  block 

integer*2  iloc;  if  location  of  buttons  in  a  block 

integer*2  isize;  ft  size  of  buttons 

integer*2  nentyp;  ii  menu  type 

integer*2  ipredr;  if  record  number  of  predecessor  menu 

integer*2  ispace;  if  space  lines  between  text  blocks 

integer*2  irec,param,ichar; 

integer*2  nr(21,50)  ,ptr;  i?  temporary  storage  for  menuid, rec  i! 

Integer  insave, irsuve,iwsave;  it  file  descriptor  from  open 

common  /blkl /image, inagep, inopt, inoptp; 

common  /blk2/lincnt ; 

common  /blk3/mode; 

common  /blk4/menuid, ipredm; 

common  /blk5/ibuff; 

common  /blk6/nblock; 

common  /blk7/nbutt, iloc, isize; 

comnon  /blk8/mentyp , ipredr; 

common  /blk9/ispace; 

common  /blkll/irsave,lwsave; 

common  /blkl2/idold, idnew; 
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common  /blkl3/tnr,ptr ; 


if  specify  logical  unit  numbers  and 
If  open  menufiles  for  read/write 
If  the  old  menu  file  'menufile'  is  read  and 
If  it  is  written  onto  a  temporary  menu  file 
if  after  all  is  done,  'meuuout'  is  copied  to 
call  setfil(LUIlR, 'menufile  '); 

if  preset  inopt, image, menuid,ipredn,ichar, nr 
for(i-l;i<-miAX;i-i+l) 

{ 

for(j-l;j<-niCPTL;j-j+l) 

inop t(j,i)“C 240;  if  SP.'O' 

} 

for(i-l;i<-I!LAGEL;i-i+l) 

inage(i)-8240;  if  SP.'O' 

for(i-l;i<«10;i-i+l) 

{ 

cenuid ( i ) *8240 ;  if  SP.'O' 

ipredn(i)-8240;  If  SP.'O' 

> 

ichar-3256;  if  SP. '€' 

Ptr-l; 

for(i»l;i<«50;i»i+l) 

{ 

for(j-l;j<-21;j-j+l) 

ir.r(j,i)-0; 

} 


if  read  function  code 
read (LUR, 1000)  ifunct; 

1000  format(i3); 

if  (ifunct— PRINTD)  call  prdir 
else 
< 

if  save  menu-id 
read (LUR, 100)  ibuff; 

ICO  format (80al ) ; 

i-i; 

vhile(i<-10  &  ibuff (i)i-ichar) 

{  nenuid(i)«ibuf f  (i) ;  i-i+1;  > 

if  (ifunct— PRINTI)  call  prinag 
else  if (ifunct— PRINTO)  call  propt; 


menuout' . 
'menu file 


> 


it  close  all  files 
rewind  LL'iiK; 

end 


jjf  ****************  ************  **  ***  *  ***********  *******************  ***** 


/;  SET  ?!  E  N 

it 

;/************;<******************************************************** 

it 

it  Initial  release  —  hn/2  Oct  79 
it  NAME: 

#  setmen(irec) 

#  CALLINC  PROGRAM: 

it  mcheck 

i?  FUNCTION : 

ft  prepare  store  for  new  and  old  menuid 

it  and  set  nenuid  into  nr 

it  OUTPUT  PARAMETER: 

#  irec  —  index  of  menuid  in  nr 

it  INFORMAL  INPUT: 

it  menuid  -  menu  id 

it  ALGORITHM: 

It  reset  temporary  id  stores 

it  copy  id's 

it  save  old  and  new  menuid  in  nr,  return  index 

a 


Hit  it  it  it  it  it  Hit  it  it  it  it  It  it  it  it  it  it  it  it  it  It  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  *’  it  it 


subroutine  setnen(irec) ; 


integer*2  if  lag, irec; 
integer*2  pl,p2; 
common  /blk4/menuid,ipredm; 
integer*2  nenuid(lO); 
integer*2  ipredm(lO); 

It  store  for  old  and  new  menuid 
common  /blkl2/idold,idnew; 
integer*2  idold(lO); 
integer*2  idnew(lO); 
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It  preset  temporary  storage  for  id's 
for (i«l ;  i<-10;  i-i+1) 

{ 

idold(i)-C240;  if  SP.'O' 

idnew(i)"8240; 

> 


It  store  old  and  new  nenuid's 
for(i-l;i<-10;i«i+l) 

{ 

idold(i)»menuid(i) ; 
idnew(i)«raenuid(i) ; 

> 

if  save  menuid  in  nr 
call  saverar(O.irec) ; 

return; 

end 


tfirklrk  ****  *  *********************  ********  **********************  ********* 

It 

*  SAVEBR 


$  **************  ******************** *************** a** ****** *********** 

it 

If  Initial  release  —  hn/3  novenber  79 
tf  NAL'E: 

if  saveiar  (pi .index) 

it  FUNCTION: 

II  store  old  and  new  menuids  (idold.idnew)  into  nr  and 

H  return  the  index  in  nr 

It  or  store  record  number  and  return  inaex 

If  OUTPUT  PARAMETER: 

if  index  -  index  in  c;r 

it 

V  it  If  if  if  if  If  if  if  if  ft  if  if  if  it  if  it  it  it  If  If  if  If  If  It  it  If  if  if  if  If  If  if  if  if  if  if  if  if  if  If  if  if  if  if  if  if  if  if  it  if  if  if  If  it  it  if  if  if  If  it  if  if  if  it  it  if  if  If  it 


subroutine  savemr(pl, index) ; 

inte£er*2  index.pl; 
common  /blkl2/idold,idnew; 
integer*2  idold(LO),  idnew(lQ); 

common  /blkl3/nr ,ptr ; 
integer*2  mr(21,5Q),ptr; 

if(pl— 0){ 

for(i-l;i<-10;i-i+l) 

{ 

mr(i,ptr)-idold(i) ; 
rar (i+10,ptr)«idnew(i) ; 

} 

) 
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else  nr(21,ptr)-pl ; 

index«ptr ; 

ptr*ptr+l; 

return; 

end 


jf  ********************************************************************* 

4 

4  G  E  T  H  E  H 

4 

j,1  ******************************************************************  *** 

i 

4  Initial  release  —  hn/3  noveraber  /9 

v  hAilE: 

4  getr.ien(irec) 

4  FUtICTlOt. : 

if  get  the  menu  record  number  for  a  menu 

if  whose  uenuid  is  in  ipredra 

4  OUTPUT  PAT.AiXTEK: 

ir  irec  —  record  number  of  first  menu  record 

it 

subroutine  get men (irec) ; 
integer*!  irec; 

common  /blk4/tr.enuid,  ipredr; 
integer*!  cienuid(lO),  ipredm(lO); 

common  /blkl3/mr,ptr; 
integer*!  nr(2I, 50) ,ptr ; 

irec»0;  4  preset 
i“l;  if  index  in  nr 

while(i<ptr  &  irec««0) 

{ 

j*Il;  4  index  for  first  character  of  inenuid 
while(irec««0  &  j<»20) 

{ 

if(inr(j,i)  !■  ipredu(j))  break 
else  if(j>«20) 

<  irec«mr(21,i) ;  break;) 
else  J-j+1; 

) 

i-i+1; 

> 

return; 

end 
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$****************  sir****  *********  **************  ************************* 

it 

if  U  P  0  il  R 

if 

if 'kit  ******  **********  **************************************  ************* 


Initial  release  —  hn/3  november  /9 
f  JIAIiE : 


It  updnr 

it  FUNCTION: 

ft  read  all  menu  directory  records  from  menufile  and  write 

H  then  to  menuout 

ft  retrieve  record  numbers  for  nenuid's  stord  in  nr 

ft  and  score  them  in  nr. 

il  ALCORITHti: 

ft  open  files  for  read  from  uenufile,  write  to  nenuout 

it  while  there  are  more  directory  records 

if  read  a  record 

it  for  all  entries  in  record 

it  compare  it  with  rnr  entry 

it  if  found  store  record  number 

it  update  directory  record  (new  menu  id  &  rec  number) 

it  write  record  to  uenuout 


it 

it  ft  it  it  it  it  it  if  it  ft  it  it  il  if  it  it  it  il  it  it  it  it  it  if  it  il  il  it  it  it  it  it  it  if  if  it  il  it  it  it  il  it  il  It  it  it  it  il  il  if  it  it  II  it  it  if  if  it  it  it  il  It  ft  it  it  ft  if  il  ft 


subroutine  updnr; 

common  /blkI3/nr ,ptr ; 
integer*2  mr(21,50),  ptr; 
integer*2  pl,p2,p3; 

integer*2  rbuff(544),  dir(I2,45),  pl,p2,p3; 
equivalence  (rouff (1) ,dir(l, 1)); 

ft  close  and  open  files 
call  coffwd; 

if  (ierror(IG4)  (-  0)  goto  9999;  il  if  END-OF-FILE 
icount"ptr-l ;  ft  number  of  entries  in  nr 

for(i»l;i<-NDREC;i*i+l)  it  for  all  directory  records 

{ 

read(LUhR, 100)  (rbuf f (k) ,k-l , 544) ; 

100  format (544al ) ; 

if (icount*"0)  next;  ft  done  no  more  entries  to  check 
for(k*I ;k<-45;k«k+I) 

{ 

dir(Il,k)-dir(II,k)-8192; 
dir(12,k)»dir(12,k)-81S2;  ft  sub  SP 
) 

for(j«I; j<"45; j»j+l)  ft  for  all  record  entries 

< 
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if  for  all  mr  entries 


for(n»l ;n<ptr;n«n+l) 

{ 

pl*mr(21 ,n) ; 

if  (pi!  *0  £>  nr(ll,n)«“Q)  { 
call  intasc(pl,p2,p3) ; 
if (P2— dir(ll,j)  u  P3«=ciir(12,j)) 

{  for (11-1 ;  IK-10;  11-11+1 ) 
nr(ll+10,n)*dir(ll, j ) ; 
icount-icount-1 ; 

> 

) 

else  < 

for(l-l;l<-10;l-l+l)  #  for  all  characters  of  menu-id 

{ 

if  (pi  i ”0 )  break;  it  if  record  nunber  found 
if(rar(l,n)!»  dir(l,j))  break  #char  dont  match 
else  if  (1—10)  :i  menuid  found 

{ 

for(ll-l;ll<-10;ll-ll+l)  it  copy  new  menuid 
dir ( 11, j )»cr( 11+10, n) ; 

p3«tJDREC+l+(  (  i-1 ) *45+j«l ) * (NIREC+tiOUEC ) ;  ii  rec  nur.ber 
or(21 ,n)«p3; 

call  intasc(p3(pl,p2) ;  it  convert  into  ASCII  coded 

dir ( 1 1 , j )»pl ;  dir(12,j)-p2; 
icount-icount-1 ; 

> 

> 

> 

> 

> 

> 


it  stop  if  not  all  menu  id's  found 

if (icount>0)  {write(6, 19) ; 13  format ('Menu  id  not  found — stop') ;stop; > 

9999  continue; 

return; 

end 

******************************** *************** ************** ********* 

it 

if  P  R  I  f.  A  G 

it 

y ********************************************************************* 

it 

it  Initial  release  --  hn/1  november  79 
it  KAllE: 


It  primag 

tt  FUNCTION: 

it  print  the  image  of  a  requested  menu 

if 


it  it  it  it  it  it  it  it  if  it  it  if  if  If  if  itir  U  if  if  ii  it  it  it  it  it  it  if  it  it  it  it  Hit  it  it  it  it  ii  '.i  It  it  it  if  it  it  it  It  it  it  ii  it  It  if  it  ir  it  if  it  it  it  i  if  tf  if  it  ir  li 


subroutine  primag; 
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common  /blkl3/mr,ptr; 
integer*2  mr(21,50) ,ptr; 
integer*2  dlmf f (544) ,pl ,p2, irec; 


«  sec  menuid  into  nr 
call  setnien(irec) ; 

i f  get  menu  record  number  fron  directory 
call  updur; 
irec»mr(21,irec) ; 

it  dummy  read  over  all  preceeding  records 
i-l+NDREC; 
while(i<irec) 

{ 

read (LUHR, 100)  (dbuff (k) ,k-l, 544) ; 

100  format (544al ) ; 
i-i+1; 

> 


if  read  and  print  up  to  four  image  records 
for(i-l;i<-4;i«i+l) 

{ 

read (LUHR, 100)  (dbuff (k) ,k«l ,544) ; 

p2*l;  if  pointer  in  record, start  of  command 

for (pl*l ;pl<»540;pl”pl+i) 

if  (dbuff  (pi)— 8228  |  dbuff  (pi)— 0316)  if  CR  LF  or  ELDOFI 

< 

pl-pl-l; 

if(pl>**p2)  if  do  not  print  successive  cr/lf 

write(LUW, 100)  (dbuf f (1) , l-p2,pl ) ;  #  write  command 

pl«pl+l ;  p2«pl+l ; 

> 

if  (dbuff  (pi)— ElliiOFI)  break;  if  read  next  recoru  if  any 
if  (dbuff  (pi)— EUDGr'L) 

{  i«5;  break;  >  »  stop,  cone 

> 

> 

return; 

end 


j ji**** ********************************************************** ******* 

it 

a  prop? 

i 

^ ******************************************************** ************* 

a 

if  Initial  release  —  hn/2  november  /9 
it  13A1IE: 


190 


it  propc 

it  FUNCTION: 

i  print  all  input  options  for  a  menu  specified  by 

i  menu-id  in  nenuid 

it 


subroutine  propt; 

common  /blk4/menuid,ipredm; 
integer*2  menuid(lO) ,ipredn(10) ; 
common  /blk 1 /image , imagep  , inop  t , inop t p ; 

integer*2  image(IMACEL) .imagep, inopt(INOPTL,INttAX) .inoptp; 

integer*2  pl,p2,p3,p4,p5,irec,mentyp,f lg; 

integer*2  p(5),  menu(lO),  dbuff(544); 

integer*2  run.rp; 

common  /bllcl3/mr,ptr ; 

integer*2  mr(21,50) ,ptr; 

integer  int; 

equivalence  (inopt (1 , 1) ,dbuf f  (1) ) ; 

call  setnen(irec) ;  It  set  menu 
call  updnr; 
l-nr(21 ,irec)+4; 
ptr-1; 

for(i-l;i<«50;i-i+l) 

{ 

for(j-lj j<-21;j-j+l) 
mr(j,i)-0; 

> 

it  dummy  read  over  all  preceding  records 
i-l+NDREC; 
while(i<l) 

{  read (LintR, 100)  (dbuff (k) ,k-l , 544) ; 

100  forinat(544al) ; 
i«i+l ; 

) 


it  read  both  records 
read  (LUliR,  200 )  (dbuf f (k ) , k-1 , 2  7  2 ) ; 
read (LUMR, 200)  (dbuf f(k) ,k-271 ,542) ; 

200  format (2 72a2) ; 

run-1 ; 
rp-1 ; 

if(l<-29)  p4-36  it  start  menu 
else  p4-29; 

int-inopt(3,p4) ;  it  number  of  input  options 

pl-int/256;  p2«mod(int,256) ;  call  ascint(pl,p2,p5); 

lr-1-4; 

write(LUW,l)  (menuid (111) ,111-1, 1C) ,lr; 

1  format(//'Input  options  for  menu:  ', 10al/, 'first  record: ', i3/) ; 

write(LUW, 2)  p5;  2  format ('number  of  input  options: ' ,i3) ; 
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m 


int-inopt(2,p4); 

pi-int/256;  p 2-nod (int, 256 ) ;  call  ascint(pl,p2,p3); 
write(Ll!V,3)  p  3;  3  format  ('menu  type: ',13); 

p2-inopt(l ,  p4) /256; 
int-inopt(l,p4) ; 
p3-mod(int,256) ; 
call  ascint(p2,p3,pl) ; 
call  savemr(pl,irec); 

while(run<-2)  { 
if (run— 2) 

{ 

write(LUW,4)  (rar(l,rp) ,1-1 1 , 20) ; 

4  format ( 'predecessor  menu:  ',10al); 
rp-rp+1; 

} 


it  print  entries  of  each  input  option 
for(p4-l;  p4<-p5;  p4-p4+l) 

{ 

it  convert  coordinates  and  action  code  into  integers 
for(l-l;l<-5; 1-1+1) 

{ 

p 1-inop t (1+6, p4) /256;  p 2-mod (inopt (l+6,p4) ,256) ; 
call  ascint(pl,p2,p(l)); 

> 

if  ( run— 2 )  { 

write(LlHJ,6)  p4;  6  format (//'input  option', i3); 

write(LUW, 7)  inopt(l,p4);  7  format ('label:  ',al); 

write(LUl.',8)  (inopt  (1,  p4) ,  1-2, 6) ;  8  format('loe  command:  ',5a2); 


write(LUW,9)  p(l);  9  format ('but ton  left  collunn: ',13) ; 
write  (LUt.1, 10)  p(3);10  format  ('button  right  collur.n: '  ,13) ; 
write (LUU, 11)  p  ( 4 ) ; 1 1  format('button  upper  row:', 13); 
write(LUl.',12)  p ( 2 ) ;  1 2  f ormat ( 'button  lower  row:', 13); 
write(LUW, 13)  p ( 5 ) ; 1 3  f ormat('action  code:', 13); 

} 

if  ( p  (5 )  ——1 )  It  read  menu 

{ 

pl-inopt(12,p4)/256;  p 2-r.od (inopt  (12, p4)  ,256) ; 
call  ascint(pl,p2,p3) ; 
if (run— 1)  call  savenr(p3,irec) 
else  < 

write(LUW, 14)  (mr(l,rp) ,1-11 , 20) ; 14  format ('successor  menu:  ',l0al) 
rp-rp+1; } 

} 

else  if (p (5 )  ——2  |  p(5)« 4)  #  return  character 

{ 

if  (run— 2) 

write(LUU, 15)  inopt(12,p4) ;  15  f orraat ('character  to  return:  ',al) 
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> 

else  it  return  integer 
{ 

if(run«“2)  { 

pl*inopt(12,p4)/256;  p2*mod(inopt(i2,p4)>256) ; 
call  ascint(pl,p2,p3) ; 
if(p(5)**3)  It  integer 

{ 

write(LUW, 16)  p3;  16  format ( 'integer  to  return: ',i3) ; 

} 

else  if(p(5)«14) 

< 

write(LUW, 17)  p3;  17  format('new  task  id:',i3); 

> 

else;  it  do  not  know  yet 

> 

> 

> 

rp«l;  run-run+1;  if(run<*2)  call  updnr;  > 

return; 

end 


ji********** **************************************** ******************* 

if 

if  p  a  d  i  r 

it 

^ ************************************************ ********************* 

it 

it  Initial  release  —  hn/3  november  79 
it  NA11E: 
it  prdir 

if  FUNCTION: 

it  print  the  contence  of  all  directory  records 

it 

it  it  it  it  it  it  it  it  J  it  it  it  it  it  it  it  it  it  it  it  it  it  it  M!  It  if  it  it  it  it  It  it  it  it  Hit  it  1!  it  i<  it  Hit  It  ititltitMUi  it  it  if  it  if  it  it  It  it  Hit  Mt  MW  it 


subroutine  prdir; 

integer*2  dbuff(544),  im(12,45),  p(45); 
integer*2  pl,p2,flag; 
equivalence  (dbuf f (1 ) ,im(l , 1 ) ) ; 


vrite(LUW, 1 ) ;  1  format (//'These  are  the  directory  records'//); 

it  print  all  records 
f  or  (i-1 ;  K-KDREC ;  i-i+1 ) 

{ 

flag«0; 

read (LU1® , 100)  (dbuf f (k) ,k-l , 544 ) ; 

100  format(S44al) ; 
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urite(LUl.',2)  i;  2  f ormat(/'record  number: ',13) ; 

for(k-l ;k<-45;k-k+l ) 

{ 

pl«im(ll,k)-8192;  p2-im(12,k)-8192; 
call  ascint (pi ,p2, p(k) ) ; 
if(p(k)--246)  p(10-0; 

if (im(l,k) 1-8240)  flag-1; 

> 

4  write  menuid's  and  record  numbers 
if (f lagl-0)  { 
for(k-l ;k<-43;k-k+3) 

{ 

il«k;  i2-k+2;  It  limits  for  3  entries 
write(LUV,3)  ( ( (ira(n, 1) ,n-l , 10) ,p(l) ) , 1-il ,12) ; 
3  format(3(10al,i3,2x)); 

> 

flag-0;  } 
else 

wrlte(LUU , 77) ;  77  format('There  are  no  entries'); 

) 

return; 

end 


j i********* ***************************************** ******************* 

if 

it  3.1  C  0  F  F  W  D 


jf  ********************************************************************* 

it 

it  Initial  release  --  lin/31  October  79 
it  UA11E: 

it  coffwd 


it  FUNCTION: 


it  close  uienufile 

it  open  menufile 

tt  read  from  menufile 

It 

4  ALCORITHK: 
it  close  file 

0  rewind  file 

4  connect  logical  unit  number  and  file 

it 


it  4  it  it  It  it  it  it  it  it  It  it  it  it  it  it  1/ It  it  it  it  it  it  it  it  it  it  it  itit  it  it  it  it  itit  it  tt  it  It  it  It  it  it  44  it « it  itit  4  it  It  Hit  4  S  Sit  it  it  Hit  it  It  0  Hit 


subroutine  coffwd; 

common  /blkll/irsave,iwsave; 
integer  irsave, lwsave; 

rewind  LUMP.; 
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call  setf il(LULR, 'nenuf lie  ') 


return; 

end 


********************************************************************** 

# 

#  I  N  T  A  S  C 

it 

^******************* *** * A A*** ***************************************** 


if  Initial  release  —  hn/31  October  79 
£  NAME: 

if  intasc(inp,outI,out2) 

#  FUNCTION: 

£  Conversion  of  an  integer  (0-900)  into  two  integer*2  ASCII  codes 

if  ALGORITHM: 

if  outl*  inp/30  +40  (range  ASCII  40-70) 

if  out2«  rsod(inp,30)  +40  (range  ASCII  40-69) 


if  if  if  if  it  if  if  if  if  if  if  il  if  if  if  if  if  it  if  if  it  if  if  if  if  £  if  if  if  if  it  if  if  if  If  if  if  it  if  it  if  If  if  if  #  if  if  if  it  it  if  if  if  If  it  it  if  if  if  if  If  if  if  it  if  it  if  if 


subroutine  intasc(inp, outl,out2) ; 

integer*2  inp,outl,out2; 
integer  nucil,num2; 

nunl-inp; 

out l*inp/30+40; 

num2»mod( nun 1,30) ; 

out2*nuta2+40; 

return; 

end 


1****************************** A Aft* A ******* *************************** 

a 

if  A  S  C  I  K  T 

# 

^ ************************************************************* ******** 

if 

if  Initial  release  —  hn/31  October  79 
it  NAME: 

#  ascint(inl,in2,outp) 

#  FUNCTION: 

it  Conversion  of  an  ASCII  coded  number  (0-9C0)  into 

if  an  integer*2  value 

i  ALGORITHM: 
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T 


#  out?-  (inl-40)*30  +  (in2-30) 


subroutine  ascint (ini , in2, outp) ; 

integer*2  ini , in2,outp ; 

outp«(inl-40)*30+in2-40; 

return ; 

end 


r 


( 
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PATCH 


;  PATCH 

10  TO  0 

TS 

.TITLE 

$FCHHL 

.ID ENT 

/03/ 

.PSECT 

OTS$I 

S  -  . 

JSR 

PC .PATIO 

NOP 

CIlP 

Rl.RO 

PATIO: 

•GLOEL 

$KLCHN 

11CV 

4(R3),R0 

ADD 

#$NLcm:,: 

CIP 

Kl.RO 

RTS 

PC 

.END 

LIST  OF  ABBREVIATIONS 


ASCII 

American  Standard  Code  for 

Information  Interchange 

BC 

- 

Background 

CRT 

- 

Cathode  Ray  Tube 

DEC 

- 

Digital  Equipment  Corporation 

FG 

- 

Foreground 

HP 

- 

Hewlett-Packard 

I/O 

- 

Input-Output 

LED 

- 

Light  Emitting  Diode 

NAVCOMSTA 

- 

Naval  Communication  Station 

SATCOM 

- 

Satellite  Communications 

SB 

- 

Status  Block 

SS  A 

- 

SATCOM  Signal  Analyzer 

PE 


Parameter  Block 
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